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BARRIER OPERATOR HAVING SYSTEM 
FOR DETECTING ATTEMPTED FORCED 
ENTRY 

This application is a continuation of application Ser. No. 5 
OS/443. PS filed May 17. 1995- now abandoned. 

BACKGROUND OF THE INVENTION 
The invention relates, in general, to barrier operators and. 
in particular, to a garage door operator including a system jc 
for detecting when an attempt is made to force open a closed 
garage door. 

Several garage door operator systems are available on the 
market for mamtaining a garage door either in a closed or 
open position. It is clear that the systems should be relatively u 
easy to use and should be able to open the door relatively 
rapidly to allow quick and easy access to the garage. In 
addition, many systems are provided which include 
detectors, pressure detectors and the like that sense when the 
garage door is being brought down and the bottom edge of 2C 
the door comes in contact whh an obstacle prior to the door 
reaching the fully closed position. These systems are impor- 
tant because they prevent the garage door from closing on 
people, pets or small objects and, therefore, prevent personal 
injury and property damage. One of the drawbacks of such 25 
systems, however, is that for some such systems, when the^ 
door has been closed, if a lifting force is applied to the door, 
for instance by an unwanted intruder grabbing the handle of 
the door and attempting to raise it by jacking the door or the 
like, some systems through a force measurement routine, 30 
automatically cause the door to be opened, in order to 
prevent what the garage door operator senses might be 
potential harm. Of course, if the person operating the door 
is attempting to break and enter the garage for nefarious 
purposes and it is important that while the system prevents 35 
harm, the system also be provided such that the door cannot 
be forced open if the operator does not want it to be and if 
no persons or property are in danger. 

A system available from the Stanley Company provides a 
garage door operator having upper travel limit and lower 4C 
travel limit switches associated therewith. The switches may 
be set or moved so that the limits of travel may be changed. 
In the Stanley system, for instance, if the door has reached 
a nominal closed position and the operator has its down limit^ 
switch position changed, the door will actually dynamically* 45 
track changes in the switch position and open or close 
according to switch commands. 

Mechanical systems may be available that in effect, jam 
the door closed: however, once these syr ems are placed in 
effect, if a person not knowing that the door is down and 50 
effectively mechanically locked artempts to open the door 
the garage door operator then attempts to lift the door against 
the locking mechanism and the garage door operator may be 
inadvertently damaged thereby or. at the very least, not open 
the door because it is locked. 33 

What is needed then is a system which provides a sensing 
modality for a garage door or other barrier operator which, 
while maintaining all safety features to prevent persona] 
injury or property damage due to unwanted closing of the 
door, nevertheless senses when an intruder artempts to open 60 
the door and prevents the door from being opened by a 
positive drive force provided by the garage door operator 
motor. 

SUMMARY OF THE INVENTION 65 
The invention relaies. in general, to a barrier system 
operator and. in particular, to a garage door operator which 
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while having all safety features for preventing personal 
injury and property damage due to inadvertent closing of the 
garage door, nevertheless provides a positively actuated 
door closure system which prevents forcing the door once it 

5 has closed without having detected any objects underneath 
it The system includes a barrier drive including an electric 
motor which may be connected to a belt, chain or screw 
drive. Means are provided for detecting motion of the 
movable barrier. These means may include a motor 

]C tachometer- upper and lower limit switches and the like 
Means are also provided for detecting when a barrier com- 
mand signal has been giv en to the barrier drive so that when 
a door has been commanded by a radio frequency control, 
the keypad control, indoor wired control or the like to open, 
the door may be automatically opened. The system also 

15 includes a storage device for storing the commanded state of 
the barrier drive which may be a microcontroller or a 
microprocessor in combination with a memory or some 
other integrated circuit device capable of storing digital or 
analog information The commanded stale is stored~and is 

2C then compared in a comparator means with the position 
-indicated by the barrier detection. In the event that the 
comparison of the barrier state signal and the barrier position 
signal indicates that the system alread> has been in a 
lowered position, usually for given time intervals, such as 27 

25 seconds and attempt is made to raise the door causing 
unwanted motion of the door when there has been no up 
command given, an alarm signal is generated which ma> be 
passed through electronic and electromechanical logic to the 
door motor causing the door motor to provide thrust to the 

3C door to hold the door in the closed position. 

In the alternative, the system may also provide a signal to 
operate a visual or audio alarm or to call over a telephonic 
or other wired system to a police department or to a security 
service to indicate that the system is being broken into 

35 It is a principal object of the present invention to provide 
a barrier operator for opening and closing a movable barrier 
which includes an electronic system for detecting when 
forced entry is being attempted on the carrier and for 
preventing the barrier from being opened. 

^ Other objects of this invention wiU become obvious to 
one of ordinary skill in the an upon a perusal of the 
following specification and claims in light of the accompa- 
nying drawings 

BRIEF DESCRIPTION OF THE DRAWINGS 
4 " FIG. 1 is a perspective view of an apparatus comprising 
a garage door operator and embodying the present invention: 
FIG. 2 is a block diagram of a portion of the head unit and 
associated controls of the apparatus shown in FIG. 1: 
^ FIG. 3 is a schematic diagram showing details of the 
circuit shown in FIG. 2: 

FIG. 4 is a flow chart of a top level flow diagram for the 
apparatus embodying the present invention; 

FIG. 5 is a flow diagram of an upper limit routine: 
55 FIGS 6A and 6B are a flow diagram controlling travel 
upward: 

FIG. 7 is a flow diagram of a down limit routine: 
FIGS 8 A and 8B are a flow chart of a downward or 

closing movement routine: 
60 FIG. 9 is a flow chart of a barrier closed routine: and 
FIG. 10 is a flow chart of an auto-reverse time delay 

routine. 

DETAILED DESCRIPTION OF THE 
65 PREFERRED EMBODIMENT 

Referring now to the drawings and especially to FIG. 1. 
more specifically a movable barrier door operator or garage 
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door operator is generally shown therein and includes a head 
unit 12 mounted within a garage 14 More specifically, the 
head unit 12 is mounted to the ceiling of the garage 14 and 
includes a raii 18 extending therefrom with a releasable 
trolles 20 artached having an arm 22 extending to a multiple 5 
paneled garage door 24 positioned for movement along a 
pair of door rails 26 and 28 The system includes a hand-held 
transmitter unit 30 adapted to send signals to an antenna 32 
positioned on the head unit 12 and coupled to a recei\er as 
will appear hereinafter An external control pad 34 is posi- JC 
tioned on the outside of the garage having a pluralrt) of 
burtons thereon and disposed to communicate via radio 
frequency transmission with the antenna 32 of the head unit 
12. An optical emitter 42 is connected via a pou er and signal 
line 44 to the head unit. An optical detector 46 is connected l5 
via a wire 48 to the head unit 12. 

The head unit 12 has a wired wail control panel 43 
connected to it via a line or wire 43a, as is shown in FIG. 2. 
More specifically, the wail control panel 43 is connected to 
a charging circuit 70 and a discharging circuit 72 coupled via 2 c 
respective Lines 74 and 76 to a wall control decoder 78. The 
wail control decoder 78 decodes closures of a plurality of 
switches 80. 82 and 84 in the wail circuit The wall control 
panel also includes a light emitting diode 86 connected by a 
resistor 88 to the line 43c and to ground. Switch 80 is the 2 5 
command switch, switch 82 is the work light switch and 
suitch 84 is the vacation switch. Switch closures are 
decoded b> the wall decoder 78 which sends signals along 
lines 90 and 92 to a motor control 94 coupled via motor 
control lines 96 to an electric motor 98 positioned within the 3C 
head unit. A tachometer 100 receives a mechanical feed from 
the motor 98 and provides feedback signals on lines 102 to 
the motor controller. 

The receiver unit also includes an antenna 110 coupled to 
receive radio frequency signals either from the fixed RF 35 
keypad 34 or the hand-held transmitter 30. The RF signals 
are fed to a radio frequencs receiver 112 where they are 
buffer amplified and supplied to a bandpass circuit 114 
which outputs low frequency signals in the range of 1 Hz to 
1 kHz. The low frequency signals are fed to an anaJog-to- ac 
digital convener 116 thai sends digitized code signals to a 
radio controller 118 The radio controller 118 is also con- 
nected to receive signals from a non-volatile memory 120 
over a non+ volatile memory bus 122 and to communicate via 
lines 124 and 126 with the motor controller 94. A timer 128 "45 
is also provided, coupled via lines 130 with the radio 
controller, a line 132 with the motor controller and a line 134 
with the wall control decoder 78. A barrier travel limit 
detection device 190 includes an up limit detector 190<3 and 
a down limit detector 190i> that sends signals to pins P20 and 50 
P21 of the raicTocontroUet 282. The obstacle detector com- 
prising the emitter 42 and detector 46 send signals to pins 
P03 and P30 of the microcontroller 282 indicating when an 
obstacle is blocking the path of the door. 

Referring nou to FIG. 3. the system shown in FIG. 3 is 55 
shown therein with the antenna 110 coupled to a reactive 
divider network 250. comprised of a pair of series connected 
inductances 252 and 254 and capacitors 256 and 258. which 
supplies an RF signal to the buffer amplifier 112 having an 
NPN transistor 260 connected to receive the RF signal at its 60 
emitter 261, The NPN transistor 260 has a capacitor 262 
connected to it for power supply isolation. The buffer 
amplifier 112 provides a buffered radio frequency output 
signal on a lead 268. The buffered RF signal is fed to an 
input 270 which forms part of a supeT-regenerative receiver 65 
272 having an output at a line 274 coupled to the bandpass 
filter 114 which provides output 10 a comparator 278. The 
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bandpass filter 114 and analog-to-digiial convener provide a 
digital level output signal at a lead 280 which is supplied to 
an input pin P32 of an 8-bit Zilog microcontroller 282. 
The microcontroller 282 may have its mode of operation 
5 controlled by a programming or learning switch 300 posi- 
tioned on the outside of the head unit 12 and coupled via a 
line 302 to the P26 pin of the microcontroller 282. The wired 
control panel 43 is connected via the lead 43tf to input pins 
P06 and P07. The microcontroller 282 has a 4 MHz crystal 
iC 328 connected to it to provide clock signals. A force sensor 
330 includes a bridge circuit having a potentiometer 332 for 
setting the up force and a potentiometer 334 for setting the 
down force, respectively connected to inverting terminals of 
a first comparator 336 and a second comparator 338. The 
15 comparator 336 sends an up force signal over a line 339a 
The comparator 338 sends a down force signal over the line 
339 b, respectively to pins P04 and P05 of the 8-bit micro- 
controller 282. Although details of the operation of the 
microcontroller in conjunction with other portions of the 
2C xircuit will be discussed hereinafter, it should be appreciated 
that the P01 pin of the microcontroller is connected via a 
resistor 350 to a line 352 which is coupled to an NPN 
transistor 354 that controls a light relay 356 which may 
supply current via a lead 358 to a light in the head unit or the 
25 like. Similarly, the pin PO00 feeds an output signal on a line 
360 to a resistor 362 which biases a base of an NPN 
transistor 364 to cause the transistor 364 to conduct, drawing 
current through the coil of the relay an up relay 366 causing 
an up motor command to be sent over a line 96 to the motor 
3C 98. Finally, the P02 pin sends a signal through a line 370 to 
a resistor 372 via a line 374 to the base of an NPN transistor 
376 connected to control current through a coil of a down 
control relay 378 which is coupled by one of the leads to the 
motor 98 to control motion of the motor 98. 
35 Electric power is received on a hot AC line 390 and a 
neutral line AC line 392 which are coupled to a transformer 
393 at its primary winding 394. The AC is stepped down at 
a secondary winding 395 and is full wave rectified by a full 
wave rectifier 396. It may be appreciated that, in the 
40 alternative, a half wave rectifier may also be used. 

A plurality of filter capacitors 398 receive the full wave 
rectified fluctuating voltage and remove some transients 
from the voltage supplying a voltage with reduced fluctua- 
~ 45 tion to an input of a voltage regulator 400. The voltage 
regulator 400 produces a 5-volt output signal available at a 
lead 402 for use in other portions of the circuit. 

Referring now to FIG. 4. a top level routine is shown 
therein which is entered every two milliseconds upon at 
5C timing interrupt in a step 500 The routine then enters a 
variety of other routines depending upon the value of a state 
number. When the state number is 2 an upper limit routine 
is entered in a step 502. If the state number is 1. a traveling 
up routine is entered in a state 504. If the state is 5. a down 
55 limit routine is entered in a step 506. If the state is 4. a 
traveling down routine is entered in a step 508. If the state 
is 6. a barrier halt or stopped in middle routine is entered in 
a step 510. If the state is 0. an auto-reverse time delay routine 
is entered in a step 512. When any of the aforementioned 
5C routines 502 through 512 are exited, a return step 514 is 
entered and other portions of code not pertinent to this 
invention are executed. 

In the event that the state equals 2. the routine 502 is 
entered as may best be seen in FIG. 5 wherein the upper limit 
65 switch has indicated that the door has reached the upper end 
of its authorized travel, the motor is switched off and a 
watchdog timer is started in a step 514. The work light 
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command flag is set in step 516 to toggle the work light od. 
Id a step 518. a radio command or wall control command 
flag is tested for and. if set. the state is set to 4. In a step 520. 
the routine is exited and return is switched to the step 514. 
In the event that the state has been set equal to 4. in step 518 5 
at the next 2 millisecond interval, control is transferred to the 
routine 508. 

In the event that the state has been set equal to L control 
is transferred to a barrier traveling up or a barrier opening 
routine shown in FIGS. 6A and 6B. In a step 522. the work 1C 
light is turned on and in the event that the light \*as off. a 
dela> of 40 milliseconds is then provided to turn on the up 
motor output, the down motor output is turned off and the 
hold door closed fiag is cleared. In a step 524. after a start 
up delay of I second the rpm period of the tachometer is 15 
tested against the look up force and if the rpm period is too 
brief, a state is set to indicate that the door has stopped in 
mid travel. In a step 526. a test is made to determine whether 
the one second timer has exceeded one second and whether 
the rpm period is below the set force limit indicating that the 2C 
door has been halted in an unwanted manner. If it is not. 
control is transferred to a step 528 wherein the state variable 
is set to 6. following which the routine is exited in a step 530. 
In the event that the derision in step 526 is positive, the up 
limit input is tested. If the voltage is low. it is increased. If 2 5 
it is high, the debounce is decreased. Control is then trans- 
ferred to a test step 532 to test whether the limit debounce 
is greater than 24 milliseconds. If it is. the state is set equal 
to 2 in a step 534 and the routine is exited in a step 536. If 
the limit debounce is less than 24 milliseconds, control is 3c 
transferred to a step 540 where a 27 second time out is 
decremented and tested for. If the time out is zero, the state 
is set as indicating that the door has stopped in mid travel. 
A step 542 is executed to test for either a radio or wail 
control command flag having been set and. if so. the state is 35 
set as stop in mid travel. The routine is then executed in a 
step 544 

In the event that the state has been set equal to 5. a routine 
506 to handle down limits, as shown in FIG. 7. is entered. 
In a step 550. a hold door closed flag is tested to determine 4c 
whether it is set or not. If it is not seu control is transferred 
to a step 552 to determine whether the 27 seconds timer has 
timed out following the down limit having been set. indi- 
cating that the door has safely closed and did not contact an 
obstruction or obstacle. In the event thai the hold door closed %j 
fiag has been set. as tested for in step 550, control is 
transferred to a step 554 testing whether the down limit 
indicates the door is open and whether the motor has been 
given enough current or turned or long enough to provide 10 
rpm pulses. In the event that the 27 second clock has not 5c 
been timed out as indicated by step 552. control is trans- 
ferred to a step 556. switching the motor off. and starting a 
watchdog timer. Control is then transferred to a step 558 to 
determine if the work light command flag has been set and. 
if it has. the work light is toggled. Control is then transferred 55 
to a step 560. testing for whether there is a radio command 
or wall control command fiag. If so. the state is set equal to 
1 and the routine is exited in a return step 562, In the event 
that the down limit does not indicate that the door is open 
and the motor has been turned enough to give 10 rpm pulses. 6c 
control is transferred to a step 564 setting the state equal to 
4 and setting the hold door closed flag. The state equal 4 
indicates that the door is to be traveling down, thereby 
causing the barrier to close after the 27 second limit has 
timed out 65 

In the event the state has been set equal to 4 to command 
the door to travel down, the routine 508 is entered as shown 


6 

in FIGS. 8A and 8B. In a step 570. the work light is turned 
on. and if the light had previously been off. a delay of 40 
milliseconds occurs following which down motor output is 
turned on and the up motor output is turned off. the watch - 
5 dog is also started In a step 572. a test is made to determine 
whether the 1 second timer has exceeded 1 second and 
whether the rpm period is indicative of a force limit having 
been exceeded. If so, indicating that the door is stalled on an 
obstacle, control is transferred to a step 574. setting a state 
ic equal- to zero and the routine is exited in a step 576. If the 
door has not been indicated to be stalled by the step 572. . 
control is transferred to a step 578 testing the status of the 
down limit input. If it is low. the debounce is increased. If 
it is high, the debounce is decreased. In a step 580. the limit 
15 debounce is tested to determine whether it is greater than or 
equal to 24 milliseconds. If it is. the state is set equal to 5 in 
a step 582 and the routine is exited in a step 584. If it is not. 
the 27 second time out is decremented and tested to deter- 
mine if it is zero. If it is zero, the state is set equal to zero 
2C jn a step 586. In a step 588. a test is made to determine 
whether the radio or wall control command flag has been set 
and. if so. the state is then set equal to 6. In a step 590. as 
shown in FIG. 8B. the timer associated with the optical 
detector is tested to determine whether it is greater than 10 
25 rnilliseconds and. if it is. indicating that an obstacle is 
blocking the light path, the state is set equal to zero to caifse 
the auto-reverse routine 512 to be entered following exiting 
from this routine. It will be entered on the next interrupt 
which is in less than 2 milliseconds. Control is then trans- 
3C f erred to a step 592. testing whether the motor speed 
indicated that the door had been forced upward If it is not. 
the routine is exited in a step 594. If the rpm sensing 
indicates that the door has been forced upward, a test is made 
in the step 596 to determine if the command is still valid 
35 indicating the door is to move upward. If it is not. control is 
transferred to a step 598 setting the state equal to zero which 
will cause the door to auto reverse and move down. Control 
is then transferred to a step 600 exiting the routine. 
In the event that the state has been set equal to 6. the 
40 routine 510 shown in FIG. 9 is entered. A test is made to 
determine whether the motor motion indicates that the door 
has been forced upward. If so. a flag is set to turn off the light 
and the electric motor is switched off and the watchdog is 
started. If the work light command flag has been set in a step 
45 604. the work light is then toggled. In a step 606. a test is 
made to determiDe whether the radio command or wall 
control command flag has been set and. if it has. the state is 
then set equal to 4 which will cause entry of the traveling 
down routine 508. The routine is then exited k: a step 608. 

50 

In the event that the state has been set equal to zero 
indicating that an auto reverse is to be commanded, the 
routine 512 is entered in a step 620, the motor is turned off 
and a watchdog timer is started. In the step 622. the delay 

55 timer is decreased and if 0.5 seconds has expired the state 
is set equal to 1 to cause the door to travel upward on the 
next 2 millisecond interrupt. In a step 624. a test is made for 
the radio command or wall control command flag being set. 
If it has. the stopped in middle routine 510 will be entered 

« on the next interrupt The routine 512 is then exited in a step 

* 626. 

While there has been illustrated and described a particular 
embodiment of the present invention, it will be appreciated 
thai numerous changes and modifications will occur to those 
65 skilled in the art. and it is intended in the appended claims 
to cover all those changes and modifications which fall 
within the true spirit and scope of the present invention. 
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NON-VOL MEMORY MAP 


00 A1 

01 Al 

02 A2 

03 A2 

04 A3 

05 A3 

06 A4 

07 A4 

08 A5 

09 A5 
OA A6 
OB A6 
OC A7 
OD A7 
OE A8 
OF A8 

10 A9 

11 A9 

12 A10 

13 A10 

14 A11 

15 At1 

16 A12 

17 A12 

18 8 

19 B 
1A C 
1B C 

1C CYCLE COUNTER 1ST 16 BITS 

1D CYCLE COLDER 2ND 16 BfTS 

1E VACATION FLAG 

1 F A MEMORY ADDRESS LftST WRITTEN 
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20-2F OPERATION BACK TRACK 
30-3F FORCE BACK TRACE 


RS232 DATA 


INPUT 
30H 


31H 


32H 

33H 

34H 
35H 
36H 
37H 


OUTPUT 

SWITCH STATUS 


xxxxxxxo 

XXXXXXX1 

xxxxxxox 

XXX XXX 1 X 

xxxxxoxx 

XXXXX1 XX 
XXXXOXXX 
XXXX1XXX 
XXXOXXXX 
XXX 1 XXX X 


UP LIMIT OPEN 
UP LIMIT CLOSED 
DOWN LIMIT OPEN 
DOWN LIMiT CLOSED 
COMMAND OPEN 
COMMAND CLOSED 
WORKLIGHT OPEN 
WORKLIGHT CLOSED 
VACATION OPEN 
VACATION CLOSED 


SYSTEM STATUS 

XXXXSSSS STATE DATA 

XXXOXXXX NOT IN LEARN MODE 

XXX1XXXX IN LEARN MODE 

XXOXXXXX NOT IN VACATION MODE 

XX1XXXXX IN VACATION MODE 

XOXXXXXX LIGHT OFF 

X1XXXXXX LIGHT ON 

OXXXXXXX AOBS OK 

1XXXXXXX AOBS ERROR 

RPM PERIOD 
RETURNED HIGH BYTE 
RETURNED LOW BYTE 

FORCE 

RETURNED DOWN FORCE 
RETURNED UP FORCE 

RADIO MEMORY CODES PAGE 00 
32 BYTES 

RADIO MEMORY CODES PAGE 10 
32 BYTES 

OPERATION HISTORY PAGE 20 
32 BYTES 

FORCE HISTORY PAGE 30 , 


38H 


MEMORY TEST AND ERASE ALL!' 
00 OK 
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FT ERROR 
39H SET PROGRAM MODE 


REASON 

00 COMMAND 

10 RADIO COMMAND 

20 FORCE 

30 AUX OBS 

40 A REVERSE DELAY 

50 LIMIT 

50 EARLY LJM1T 

70 MOTOR MAX TIME. TIME OUT 

80 MOTOR COMMANDED OFF RPM CAUSING AREV 

90 DOWN L. JilT WITH COMMAND HELD 

AO DOWN LIMIT WITH THE RADIO HELD 

B0 RELEASE OF COMMAND OR RADIO AFTER A FORCED 

UP MOTOR ON DUE TO RPM PULSE WITHG MOTOR OFF 


STATE 

00 AUTORE VERSE DELAY 

01 TRAVELING UP DIRECTION 

02 AT THE UP LIMIT AND STORED 

03 ERROR RESET 

04 TRAVELING DOWN DIRECTION 

05 AT THE DOWN LIMIT 

06 STOPPED IN MID TRAVEL 


DIAG 


1) AOBS SHORTED 

2) AOBS OPEN / MiSS ALIGNED 

3) COMMAND SHORTED 

4) PROTECTOR INTERMITTENENT 
5} CALL DEALER 

A) NO RPM IN THE FIRST SECOI*5 

B) RPM FORCED A REVERSE 
C) 


DOG 2 


DOG 2 IS A SECONDARY WATCHDOG USED TO 

RESET THE SYSTEM IF THE LOWEST LEVEL "MAIN LOOP** 

IS NOT REACHED WITHIN A 3 SECOND 
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EQUATE STATEMENTS 


check_sum_vatue 

.equ 

09AH 

TIMER 0 

.EOU 

10H 

TIMER 0 EN 

.EOU 

03H 

T1MER_1_EN 

.EOU 

OCH 

MOTOR HI 

.EQU 

034H 

MOTOR LO 

.EQU 

OBCH 

PWM_CHARGE 

.EQU 

OQH 

PWM DISCHARGE 

.EQU 

01 H 

LIGHT 

.EQU 

OFFH 

LIGHT ON 

.EQU 

02H 

MOTOR_UP 

.EQU 

01 H 

MOTOR DN 

.EQU 

04H 

DELIMIT 

.EQU 

02H 

UP~LIMIT 

.EQU 

01 H 

DIS £W 

.EQU 

10000000B 

CDiS_SW 

.EQU 

01111111B 

SWITCHES 

.EQU 

01000000B 

CHARGE SW 

.EQU 

001 00000 B 

CCHARGE SW 

,EQU 

110111 11B 

PWM HI 

.EQU 

10H 

COMPARATORS 

.EQU 

30H 

DOWN COMP 

EQU 

20H 

UP COMP 

.EQU 

10H 

PWM_D!S 

.EQU 

20H 

P01M iNiT 

.EOU 

01000100B 

P2M INiT 

.EOU 

01100011B 

P3M INIT 

-EQU 

00000011 B 

P01S INIT 

.EQU 

0000001 OB 

P2S INIT 

.EQU 

10000011B 

P3SJNIT 

.EQU 

OOO0O0O0B 

FLASH 

.EQU 

OFFH 

WORKLtGHT 

.EQU 

02H 

COM CHARGE 

.EQU 

2 

WORK CHARGE 

.EQU 

20 

VAC_CHARGE 

.EQU 

80 

COM DIS 

EQU 

01 

WORK DiS 

.EQU 

04 

VACJDIS 

.EQU 

24 

CMD TEST 

.EQU 

00 

WL TEST 

-EQU 

01 

VAC TEST 

.EQU 

02 

CHARGE 

.EQU 

03 

AUTO REV 

.EQU 

00H 

UP DIRECTION 

.EOU 

01 H 

UP POSITION 

.EOU 

02H 

DN DIRECTION 

.EQU 

04H 


; set mode p00-p03 out p04-p07rn 

; set porta p3G-p33 input ANALOG mode 
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DEPOSITION 

STOP 

CMD^SW 

LiGHT_SW 

VAC_SW 


EQU 05H 

EQU 06H 

EQU 01H 

EQU 02H 

.EQU 04 H 


PERIODS 


LIMIT COUNT 

.EQU 

OFH 

AUTO HI 

EQU 

00H 

AUTO LO 

.EQU 

0F4H 

MIN_COUNT 

.EQU 

04 H 

TOTAL PWM COUNT 

.EQU 

03FH 

FLASH HI 

EQU 

O0H 

FLASH LO 

.EQU 

07AH 

SET TIME HI 

.EQU 

02H 

SET TIME LO 

.EQU 

02H 

SET TIME PRE 

.EQU 

OFBH 

ONE SEC 

.EQU 

0F4H 

CMD MAKE 

.EQU 

8D 

CMD BREAK 

.EQU 

(255D-8D) 

LIGHT MAKE 

.EQU 

8D 

LIGHT BREAK 

.EQU 

(255D-8D) 

VAC MAKE OUT 

EQU 

4D 

VAC BREAK OUT 

.EQU 

{255L>4D} 

VAC MAKE IN 

.EQU 

2D 

VAC_BREAKJN 

EQU 

(255D-2D) 

VAC DEL 

EQU 

8D 

CMD DEL EX 

.EQU 

4D 

VAC DEL ~EX 

.EQU 

SOD 


, limil debounce 1 way 32mS 
- , aulo rev timer 5 sec 

; pwm start point 

; pwm end * stari + 4 'total- 1 

, 25 sec flash 

,4.5 MIN 
;4.5 MIN 
;4 5 MIN 

, WITH A /2 IN FRONT 

, cyde count *l0mS 

; cycle count *1 1mS 

, cycle count *100mS 


PREDEFINED REG 


.SP 

equ 

255 

.RP 

.equ 

253 

;FLAGS 

.equ 

252 

.IMR 

.equ 

251 

;IRQ 

.equ 

250 

;IPR 

.equ 

249 

;P01M 

.equ 

248 

,P3M 

.equ 

247 

,P2M 

.equ 

246 

,PRE0 

.equ 

245 

JO 

equ 

244 

.PRE1 

.equ 

243 

,T1 

.equ 

242 

,TMR 

.equ 

241 

:P3 

.equ 

3 


, stack potnter 

; register pointer 

; cpu flags 

; interrupt mask reg 

; interrupt request 

; interrupt priority 

; port 0 mode 

; port 3 mode 

; port 2 mode 

; prescaier for timer 0 

; timer 0 

; prescaier lor timer 1 
; timer 1 
; timer mode 
; port 3 
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P2 
PO 

ALL_ONJMR 
RETURN tMR 


equ 
equ 

equ 
.equ 


2 
0 

00111101b 
00011101b 


- port 2 
, port 0 

, 1urn on jnt lor timers rpm auxobs radio 
; return on the (MR 


GLOBAL REGISTERS 


STATUS 


STATE 

PWM_STATUS 

PWMJDFF 

AUTO_DELAY_Ht 

AUTO_D£LAY_LO 

AUTO_DELAY 

MOTOR TIMER.HI 

MOTOR_TlMER_LO 

MOTORJTIMER 

LIGHT JTIMER_HI 

LlGHT_TIMER_LO 

LIGHT TIMER 


.EQU 04H 


EQU 
.EQU 
EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 


05H 
06H 
07H 
08H 
09H 
08H 
0AH 
0BH 
OAH 
OCH 
ODH 
OCH 


CMD_TEST 00 
WL_TEST 01 
VAC JTEST 02 
CHARGE_03 

, state register 


PRE LIGHT 

.EQU 

OFH 


SW DATA 

EQU 

10H 


ONEP2 

.EQU 

11H 

1.2 SEC TIMER TICK. 125 

LAST^CMD 

EQU 

12H 

LAST COMMAND FROM 




* 55 WALL CONTROL 




* 00 RADIO 

BCODEFLAG 

.EQU 

13H 

B CODE FLAG 




77 » bcocte 

RPMONES 

.EQU 

14H 

RPM PULSE ONE SECOND DISABLE 

RPMCLEAR 

.EQU 

15H 

RPM PULSE CLEAR AND TEST TIMER 

FAREVFLAG 

.EQU 

16H 

RPM FORCED AREV FLAG 




88H FOR A FORCED REVERSE 

FLASH FLAG 

.EQU 

17H 


FLASH DELAY HI 

.EQU 

18H 


FLASH DELAY LO 

.EQU 

19H 


FLASH DELAY 

.EQU 

18H 


FLASH COUNTER 

.EQU 

1 AH 


REASON 

EQU 

1BH 



00 COMMAND 

10 RADIO COMMAND 

20 FORCE 

30 AUXOBS 

40 AUTOREVERSE DELAY TIMEOUT 

50 LIMIT 

eo early Litorr 

70 MOTOR MAX TIME OUT 

80 FORCED AREV FROM RPM 

90 CLOSED WITH COMMAND HELD 
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EQU 

1 CH 


CMD DEB 

EQU 

1DH 


LIGHT DEB 

.EQU 

1 EH 


VAC_DEB 

EQU 

1FH 


TlMER_GROUP 

EQU 

20H 


sw_address_hr 

.equ 

rO 


sw_address_lo 

equ 

rl 


sw_address 

equ 

rrO 


t_address_ht 

.equ 

r2 


t_address_lo 

equ 

r3 


t_address 

.equ 

rr2 


swrtch_delay 

.equ 

r4 


hmit 

.equ 

r5 


obs counl 

equ 

r6 


rs232do 

equ 

r7 


rs232di 

equ 

r8 


rscommand 

.equ 

r9 


rs232docount 

.equ 

no 


rs232dicount 

.equ 

rl 1 


rs232odelay 

.equ 

r12 


rs232tdefay 

.equ 

r13 


rs232ccount 

equ 

r14 


rs232page 

.equ 

r15 


SWITCH DELAY 

EQU 

TIMER 

GROUP+4 

LIMIT 

.EQU 

TIMER" 

GROUP+5 

OBS COUNT 

.EQU 

TIMER 

_GROUP+6 

RS232DO 

.EQU 

TIMER 

GROUP+7 

RS232DI 

.EQU 

TIMER 

GROUP+6 

RSCOMMAND 

.EQU 

TIMER 

GROUP+9 

RS232DOCOUNT 

EQU 

TIMER 

_GROUP<r10 

RS232DICOUJMT 

.EQU 

TIMER 

GROUP+11 

RS2320DEU\Y 

EQU 

TIMER" 

GROUP+12 

RS232IDELAY 

.EQU 

TIMER 

GROUP+13 

RS232CCOUNT 

.EQU 

TIMER 

GROUP+14 

RS232PAGE 

.EQU 

TIMER 

GROUP+15 


; AO CLOSED WITH THE RADIO HELD 


, LEARN EE GROUP FOR LOOPS ECT 


LEARNEE_GRP 
TEMPH 
TEMPL 
TEMP 
LEARNDB 
LEARNT 
EftASET 
MTEMPH 
MTEMPL 
MTEMP 
SERIAL 
ADDRESS 


.equ 30H 

.equ LEARNEE_GRP 

.equ LEARNEE_GRP+1 

.equ LEARNEE_GRP+2 

-equ LEARNEE_GRP+3 

.equ LEARNEE.GRP+4 

.equ LEARNEE_GRP+5 

.equ LEARNEE GRP+6 

.equ LEAR NE E_G R P+7 

.equ LEARNEEJ3RP+8 

.equ LEARNEE_GRP+9 

.equ LEARNEE_GRP+10 


team de bouncer 
team ttmer 
erase timer 
memory temp 
memory temp * 
memory temp 

seriaJ data to and from nonvol memory 
address tor the serial nonvol memory 


21 


5.780.987 


22 


TCEXT 

equ 

LEARNEE 

T4MS 

.equ 

LEARNEE 

T125MS 

equ 

LEARNEE 

22WIN 

.equ 

LEARNEE 

SKIPRADIO 

.equ 

LEARNEE. 

temph 

.equ 

rO 

tempi 

.equ 

rl 

temp 

.equ 

r2 

learndb 

.equ 

r3 

learnt 

•equ 

r4 

eraset 

equ 

r5 

miemph 

.equ 

r6 

mtempl 

equ 

r7 

mtemp 

.equ 

r8 

serial 

.equ 

t9 

address 

.equ 

no 

tOext 

.equ 

r11 

14ms 

equ 

r12 

t125ms 

.equ 

r13 

zzwin 

equ 

r14 

skipradio 

equ 

r15 


, timer 0 extend decremented every TO int 

; 4 mS counter 

. l25mS counter 

; radto 00 code window 

, flag to skip the radio read and write if 

; learn or vacation are talking to it 


; team de bouncer 
; learn timer 
, erase timer 
; memory temp 
; memory temp 
; memory temp 

; serial data to and from nonvol memory 
; address for the senal nonvol memory 
; ttmer 0 extend decremented every TO int 
; 4 mS counter 
; 125mS counter 

; flag to skip the radio read and write if 
; leam or vacation are talking to it 


PWMJ3ROUP 

dniorce 

upforce 

up_torce_hi 

upjorcejo 

upjorce 

dn_force_hi 

dn_force_to 

dnjorce 

force_add_hi 

force_add_lo 

force_add 

upjemp 

dnjemp 

pulse width 

pwm_count 

DNFORCE 

UPFORCE 

AOBSTEST 

FAULTTIME 

UP_FORCE_HI 

UP FORCE.LO 

DN_FORCE_HI 

DN_FORCE_LO 

PULSEWIDTH 

PWM_COUMT 

AOBSF 

FAULTCODE 


.EQU 

40H 

.equ 

rO 

.equ 

r1 

equ 

r4 

equ 

r$ 

equ 

rr4 

equ 

r6 

.equ 

r7 

.equ 

rr6 

equ 

r8 

equ 

' r9 

equ 

m3 

equ 

MO 

.equ 

m 

equ 

r12 

equ 

r13 

.equ 

40H 

.equ 

41H 

.equ 

42H 

.equ 

43H 

.equ 

44H 

.equ 

ASH 

.equ 

46H 

.equ 

47H 

.equ 

4CH 

.equ 

4DH 

.equ 

4EH 

.equ 

4FH 
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RPM_GROUP 

.EQU 

50H 


stackreason 

.equ 

rO 


stackflag 

equ 

r1 


rpm_temp_hi 

.equ 

r2 


rpm_1emp_b 

equ 

r3 


rpm_past_hi 

.equ 

r4 


rpm_past_io 

equ 

r5 


rprn_past 

.equ 

rr4 


rpm_penod_hi 

.equ 

r6 


rpm_penod_lo 

equ 

r7 


rpm_penod 

equ 

rr6 


rpm_count 

equ 

r8 


rpm_ditf_hi 

.equ 

r9 


rpmdiffjo 

.equ 

MO 


rpm_2past_hi 

equ 

r11 


rpm_2past_lo 

.equ 

ft 2 


rpm_set_dtft_hi 

equ 

r13 


rpm_set_dff_lo 

.equ 

r14 


rpm_time_out 

.equ 

r15 


STACKREASON 

.EOU 

RPM 

GROUP+0 

STACKFLAG 

EQU 

RPM 

GROUP+1 

RPM TEMP HI 

.EQU 

RPM" 

GROUP+2 

RPM TEMP LO 

EQU 

RPM 

GROUP+3 

RPM PAST Hi 

EQU 

RPM 

GROUP+4 

RPM PAST LO 

EQU 

RPM 

GROUP+5 

RPM PERIOD HI 

.EOU 

RPM 

GROUP+6 

RPM PERIOD LO 

.EQU 

RPM 

GROUP+7 

RPM COUNT 

EQU 

RPM 

GROUP+8 

RPM DIFF HI 

.EQU 

RPM 

GROUP+9 

RPM DIFF LO 

.EQU 

RPM GROUP+10 

RPM 2PAST HI 

.EQU 

RPM 

GROUPS 1 

RPM 2PAST LO 

.EQU 

RPM 

GROUP+12 

RPM SET DIFF HI 

EQU 

RPM 

GROUP+13 

RPM SET DIFF LO 

.EQU 

RPM 

GROUP+14 

RPM TIME OUT 

.EQU 

RPM 

GROUP+15 


. RADIO GROUP 


RADIOJ3RP 

RTEMP 

RTEMPH 

RTEMPL 

RTIMEAH 

RTIMEAL 

RTIMEIH 

RTIMEIL 

RTIMEPH 

RTIMEPL 

RADI03H 


.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 


60H 

RADIO 

RADIO 

FLADIO 

FtADIO 

RADIO 

RADIO 

RADIO 

RADIO" 

RADIO" 

radio" 


GRP 

GRP+1 

GRP+2 

GRP+3 

GRP+4 

GRP+5 

GRP+6 

GRP+7 

GRP+8 

GRP+9 


; radio temp storage 
; radto temp storage high 
; radio temp storage tow 
; radio active time high byte 
; radio active time low byte 
; radio inactive time high byte 
; radio inactive time Jow byte 
; radio past time high byte 
; radio past time low byle 
; 3 mS code storage high byte 
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RADI03L 

.equ 


.equ 


.equ 

r\ *-\ u i 

.equ 

rt I Itvlc Un 

equ 

CT ill c f"M 

.equ 

rtemp 

equ 

rlemph 

.equ 

rtempl 

equ 

rlimeah 

equ 

riimeai 

.equ 

rtimeih 

equ 

rtimeil 

.equ 

rtimeph 

.equ 

rtimepl 

.equ 

radio3h 

equ 

radio3l 

equ 

radio 1 h 

.equ 

radio! \ 

.equ 

radtoc 

.equ 

rtimedh 

.equ 

rtjmedi 

.equ 

CHECKJ3RP 


checksum 


rom_data 


test_adr_hi 


test^adrjo 


lest adr 


CHECK SUM 


ROM DATA 


AUXLEARNSW 


RRTO 


RPM ACOUNT 


RSCCOUNT 


RSSTART 


RADIO CMD 


R DEAD TIME 


FAULT 


VACFLAG 


VACFUSH 


VACCHANGE 


TASKSWITCH 


FORCE IGNORE 

FORCE PRE 


SDISABLE 


PRAD103H 


PRA0IO3L 


PRADIOIH 


PRADI01L 


RTO 


RFLAG 


RINFiLTER 



RADIO.GRP^IO 

RADiO_GRP+1l 

RADIOJ3RP+12 

RADIO_GRP+13 

RADIO_GRP+14 

RADlO_GRP+15 

rO 

n 

r2 

r3 

r4 

r5 

r6 

r7 

r8 

r9 

no 

r11 

r12 

rl3 

M4 

r15 


equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 

.equ 
.equ 
.equ 

equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 


70H 
rO 
ii 
r2 
r3 
rr2 

CHECK_GRP+0 
CHECKJ3RP+1 
CHECK_GRP+2 
CHECK_GRP+3 
74H 
75H 
76H 


3 ™S code storage tow b>1e 
1 mS code storage high byle 
1 mS code storage low byte 
radio word count 

radio diflerence of active and inactive 

radio difference 

radio temp storage 

radio temp storage high 

radio temp storage low 

radio active time high byte 

radio active time low byte 

radio inactive time high byte 

radio inactive time low byte 

racTio past time high byte 

radio past time low byte 

3 mS code storage high byte 

3 mS code storage low byte 

1 mS code storage high byte 

1 mS code storage low byte 

radio word count 

radio difference of active and inactive 
radio difference 


; check sum pointer 


check sum reg for por 
data read 


77H 
78H 
79H 

7AH 

7BH 
7CH 
7DH 
7EH 
7FH 
80H 
81 H 
82H 
83H 
84H 
85H 
86H 
87H 


; to test for active rpm 
; rs232 byte counter 
; rs232 start flag 

radio command 


; VACATION mode flag 


system disable timer 
3 mS code storage high byte 
3 mS code storage tow byte 
1 mS code storage high byte 
1 mS code storage tow byte 
radio time out j 
radio flags 
radio input fitter 
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LJGHT1S 

.equ 

88H 

, light timer for 1 second flash 

DOG2 

equ 

89H 

; second watchdog 

FAULTFLAG 

equ 

8BH 

, flag for fault blink stops radio blink 

MOT DEL 

.equ 

8CH 

, motor time deiay 

LIGHTS 

equ 

8DH 

, light stale 

DELAYC 

equ 

8 EH 

; tor the time delay lor command 

COUNTER 

equ 

8FH 

; delay counter 

BACKUPJ3RP 

.equ 

90H 


ForcedDown 

.equ 

BACKUP 

GRP 

BRPM COUNT 

.equ 

BACKUP 

GRP+1 

BRPM TIME OUT 

.equ 

BACKUP* 

GRP+2 

BFORCE IGNORE 

equ 

BACKUP 

GRP +3 

BAUTO DELAY Hi 

.equ 

BACKUP 

GRP +4 " 

BAUTO DELAY LO 

.equ 

BACKUP GRP+5 

BAUTO DELAY 

.equ 

BACKUP GRP+4 

BCMD DEB 

equ 

BACKUP GRP+6 

ESTATE 

.equ 

BACKUP GRP+7 


STACKTOP 

equ 

238 

start of the stack 

STACKEND 

.equ 

OAQH ; end of the stack 

,P3 

.equ 

3 ; 

port 3 

,P2 

equ 

2 

port 2 

P0 

equ 

0 ; 

port 0 

RS2320S 

equ 

otooooooe 

RS232 output bit set 

RS2320C 

equ 

101111118 ; 

RS232 output bH clear 

RS2320P 

equ 

P3 ; 

RS232 output port 

RS232IP 

equ 

P2 ; 

RS232 input port 

RS232IM 

.equ 

001 00000 B 

RS232 mask 

csh 

equ 

O0O10OO0B 

chip select high for the 93c46 

csi 

.equ 

111011118 

chip select low lor 93c46 

dockh 

.equ 

00001 0O0B 

clock high lor 93c46 

clockf 

.equ 

1111011 1B 

clock tow tor 93c46 

doh 

equ 

0OO0C1O0B 

data out high 1or 93c46 

dol 

.equ 

11111011B 

data out low for 93c46 

ledh 

equ 

10000000B 

turn the led pin high "on" 

ledt 

.equ 

01111111B 

turn the led pin low "off* 

psmask 

.equ 

01000000B 

; mask fo? the program switch 

csport 

equ 

P2 

, chip select port 

dioport 

.equ 

P2 

; data i/o port 

clkport 

equ 

P2 

; clock port 

ledport 

.equ 

P2 

; led port 

psport 

equ 

P2 

; program switch port 

WATCHDOG_GROUP .EOU OFH 


peon 


.equ rO 


smr 


.equ rll 


wdtmr 


.equ r15 



WDT macro 

.byte 51h 
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endm 


FILL 


macro 

byte OFFh 
endm 


TRAP 


TRAP10 


.macro 
jp start 


IP 

IP 
JP 
JP 

endm 
macro 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
endm 


Start 
start 
Stan 
Start 


Interrupt Vector Table 


org 

OOOOH 


word 

RADIO INT 

;IRQ0 

word 

OOOCH 

;lROl,P3.3 

word 

RPM 

;IRQ2, P3.1 

.word 

AUX OBS 

;JRQ3, P3.0 

word 

TIMERUD 

;1RG4, TO 

word 

PWM 

;FRG5, T1 

■page 



.org 

OOOCH 


JP 

START 

; start jmps 1 


start jmps to start at location 0101 or 0202 ect 


FORCE TABLE 


<orce tabte_50 

F_0:~ 

F 4 


.word 
.word 
.word 
.word 
.word 


107FH 
107FH 
1 09 DH 
108BH 
10D9H 
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F_5 word 10F8H 

F_6 word 1116H 

F_7 word 1 1 34H 

F_8* word 1152H 

F_9 .word 1 1 66H 

F_10* word 117DH 

F_11 word 1193H 

F_12. .word 119FH 

F_13 word 11ABH 

F_14. .word 11B7H 

F_15 .word 11C3H 

F_16. .word 11CFH 

F_17- .word 11DFH 

F_16 .word 11E8H 

FJ9 word 11F4H 

F_20 word 1 200H 

F_21 word 120CH 

F_22 word 1218H 

F_23. word 1224H 

F_24. .word 1230H 

F_25 .word 123CH 

F_26 .word 1248H 

F_27 word 1254H 

F_28 .word 1260H 

F„29 word 126CH 

F_30 word 1278H 

F_31. .word 12&4H 

F_32 word 1291H 

F_33. .word 129DH 

F_34 word 12BBH 

F_35 word 12D9H 

F_36 word 12F7H 

F_37 word 1315H 

F_38 .word 1333H 

F_39 .word 1352H 

F_40 word 1370H 

F_41: .word 138EH 

F_42 word 13ACH 

F_43. word 13CAH 

F_44 .word 1407H 

F_45. .word 1443H 

F_46 .word 147FH 

F_47 .word 14BCH 

F_48. .word 14F8H 

F_49 .word 1 534H 

F_50. .word 1571H 

F_5V word 15E9H 

F_52: .word 1626H 

F_53 .word 169EH 

F_54. .word 1717H 

F_55. .word 17D5H 

F_56' .word 1951H 

F_57 .word 1 B8DH 

F_58 .word 1 E86H 

F_59 .word 223 EH 

F_60 word 26B4H 
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F_61 word 2BE9H 

F_62 .word 31DDH 

F_63 .word 38SEH 

F_64 .word 388EH 


RS232 DATA ROUTINES 


enter rs232 start with word to output in rs232do 


RS2320START: 

push 

srp 

Clr 

td 

clr 

and 


#TIMER_GROUP 

RSSTART 

rs232odelay.#6d 

rs232docount 

RS2320P.#RS2320C 

NORSOUT 


; save the rp 

; set the group pointer 

; one shot 

; set the time delay to 3 mS 
; start with the counter at 0 
; clear the output 


RS232. 


RS2320UTPUT 


RS232R 


RS232SET 
SETTIME. 


NORSOUT. 
RS232INPUT: 


cp 

RSSTART.#0FFH 

jr 

2.RS2320START 

push 

«P 

srp 

#TIMER GROUP 

cp 

rs232docount,#11d 

K 

nz t RS232R 

or 

RS2320P,#RS2320S 

JR 

NORSOUT 

djnz 

rs232odelay,NORSOUT 

inc 

r&232docount 

scf 


ITC 

r$232do 

J r 

C.RS232SET 

and 

RS2320P.#RS2320C 

jr 

SETTIME 

or 

RS232OP,#RS2320S „ 

Id 

fs232ode(ay,#6d 

tm 

rs232docount.#00000001 b 

if 

z.NORSOUT 

Id 

rs232odetay,#7d 

cp 

rs232d1courrt,#0FFH 

jr 

nz.RECElVING 

tm 

RS232IP.#RS232IM 

jr 

ru.NORSlN 

clr 

rs232dicount 

td 

rs232tdetay,#3 


; test for the start flag 


; save the rp 

; set the group pointer 

; test for last 

; set the output idle 


; cycie count time delay 

; set the count for the next cycle 

; set the carry flag lor stop brts 

; get the data into the carry 

; if the brt is high then set 

; dear the output 

; find the delay time 

; set the output 

; set the data output delay 
; test for odd words 
; if even done 
; set the delay to 7 for odd 
;this gives 6.5\512mS 


; test mode 

; H receiving then jump 

; test the incoming data 

; H the line ts still »dle then skip 

; start at 0 

; set the delay to mid 


35 


5.780.987 


36 


RECEIVING 


SKIPSETTING 


DiEVEN 


NORSiN 


djnz 

rs232idelay, NORSIN 

inc 

rs232dtcoun! 

cp 

rs232dtcount.#10d 

i r 

2. DIEVEN 

tm 

RS232IP,#RS232IM 

rcf 



z.SKIPSETTlNG 

scf 


rrc 

rs232di 

Id 

rs232idelay.#6d 

tm 

rs232dicount,#O0000001 b 

r 

z.NORSIN 

id 

rs232ideiay.#7 

jr 

NORSIN 

Id 

rs232dicount,#0FFH 

W 

rs command. rs232di 

cir 

RSCCOUNT 

pop 


ret 


FILL 


FILL 



, skip till delay is up 

, bit counter 

; test for last timeout 

, lest the incoming data 
; clear the carry 

; if input bit not set skip setting carry 
, set the carry 

; save the data into the memory 
. set the delay 
; test for odd 
; if even skip 
; set the delay 


; turn off the input till next start 
, save the value 
» clear the counter 

; return the rp 


REGISTER INITILI2ATION 


start 
START 


org 0101H 


di 
Id 
Id 

WDT 

cir 


RP.#WATCHDOG_GROUP 
wdtmr,#0000111lB 

RP 


; address has both bytes the same 

; turn off the interrupt for inrt 

; rc dog 1 0OmS 

; kick the dog 

; clear the register pointer 


PORT INITIUZATION 

* • *****•*•*""* *•**■•***•♦*******•*'•**••*«****•«•*♦•••♦**»•«•*«*»#»»»#»♦*** 


Id 

P0.#P01S IN IT 

Id 

P2,#P2S INIT-2 

Id 

P3,#P3S INIT 

Id 

P01M,#P01M INIT 

id 

P3M t #P3MJNlT 

Id 

P2M,#(P2MJNIT-3) 


; RESET all ports 

; Set the up limit high , down limit low 

; set mode p00-p03 out p04-p07"m 
; set port3 p30-p33 input analog mode 
; p34-p37 outputs 

, set port 2 mode setting the limits as 
; outputs for fema of open 
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wnte_agam 


wrrte_again1 


srp 

#OFCh 

, point to control group use stack 

Id 

r15.#4 

;r!5= pointer (minimum of RAM) 

WOT 


, KICK THE DOG 

Id 



Id 

(2>rl5,r14 

write 1,2,4,8.10,20,40.80 

cp 

r14,@>r15 

.then compare 

J' 

ne,sy$tem_error 


rl 

r14 


j' 

nc,write_agaim 


clr 

@rl5 

;wrrte RAM(r5)»0 to memory 

mc 

r15 


cp 

r15.#240 


J r 

ult,wnte_a<jain 



Checksum Test 
CHECKSUMTEST 


add_sunr 


system_error 


system_ok- 

WDT 
Id 

SETSTACKLOOP: 
id 

dec 
cp 

CLEARDONE: 


srp 

#CHECKJ3RP 


id 

test adr hi.#0FH 


id 

test_adrJo,#0FFH 

;maxirnum address«fffh 

WDT 


; KICK THE DOG 

Idc 

rom_data,<2>test_adr 

;read ROM code one by one 

add 

check_sum ,rom_data 

;add it to checksum register 

decw 

test^adr 

^increment ROM address 

V 

nz,add_sum 

;address*0 ? 

cp 

check_sum t #check_sum_vaJue 


jr 

z,system_ok 

;check final checksum • 00 ? 

and 

ledport,#tedi 

; tum on the LED to indicate fautt 


system_error 


.byte 

256-check_sun*i_vaiue 



STACKEND,#STACKTOP 

@STACKEND,#01H 
STACKEND 

STACKEND,#STACKEND 
nz.SETSTACKLOOP 


; kick the dog 

; start at the top of the stack 

; set the value for the stack vector 

; next address 

; test for the last address 

, loop t«l done 


W STATE.#06d 

kj BSTATE,#06d 

Id STATUS ,#CHARGE 


set the state to stop 
set start to charge 
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id SWITCH DELAY,#CMD_DEL_EX , set the delay time to cmd 

Id LIGHT_t7meR_HI,#SET_TIME_HI ; set the light penod 

id LIGHT TIMER_LO.#SET_TIMEJ.O ; for the 4.5 min timer 

Id PRE_LIGHT,#SET_TIM£_PRE ; 

Id PULSEWIDTH,#MIN_COUNT ; set inrt 

Id PWM_COUNT,#TOTALj>WM_COUNT; 

id RPMONES,#244d ; set the hold off 

Id RS232DOCOUNT,#1 1 D ; turn off the rs232 output 

srp #LEARNEE_GRP ; 

Id leamdb,#OFFH ; set the learn de bouncer 

Id zzwmjeamdb ; turn off the learning 

Id CMD_DEB,leamdb , in case of shorted switches 

Id BCMD_DEB,leamdb - ; tn case of shorted switches 

Id VAC DEB.Ieamdb ; 

Id LIGHT _DEB,leamot> 

Id ERASET.Ieamdb ; set the erase timer 

Id leamt.learndb ; sel the (earn timer 

Id RTO.learndb ; set the radio time out 

id AUXLEARNSW.Ieamdb , turn off the aux learn switch 

Id RRTO.iearndb ; set the radio ttmer 


STACK INiTiLlZATiON 


dr 254 

Id 255,#238D ; set the start of the stack 


TIMER INiTILlZATiON 


Id PRE0,#OOO0T 001 B ; set the prescaler to / 2 for 8Wh2 

id PRE1,#01000010B ; one shot mode /1 6 

Id TD.#OO0H ; set the counte* to count FF through 0 

Id T1 ,MlN_COUNT ; set inrt count 

Id TMR,#00000011B ; turn on the timer 


; PORT INiTILlZATiON 

id P0,#P01S_IN1T " ; RESET a* ports 

id P2,#P2S 1NIT ; 

Id P3 f #P3SjNrT ; 

Id P01M,#P01MJNIT ; set mode p00-pO3 out pO4-p07in 

id P3M ,#P3M JNIT ; set port3 p30-p33 input analog mode 

; p34-p37 outputs 

Id P2M,#(P2M_HMnr+0) ; set port 2 mode 


'. READ THE MEMORY 2X AND GET THE VACFLAG 
W SKIPRADIO,#OFFH 

Id ADDRESS,#t EH ; set rvon vol address to the VAC flag 


faff* 
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catl READMEMORY , read the value 2X IX INJT 2ND read 

caii READMEMORY ; read the value 

Id VACFLAG.MTEMPH , save into voiital 

cir SKiPRADiO 


INTERRUPT (NITILI2ATION 


SET1NTERRUPTS 
Id 
Id 
Id 


IPR #0001 101 OB 

IMR,#ALL_ON_IMR 

1RQ.#01000000B 


; set the priority to timer 
; turn on the interrupt 
; sefihe edge clear int 
; enable interrupt 


! RESET SYSTEM REG 


Id RP,#vVATCHDOG_GROUP 

Id smr.#OQ1Q0010B 

Id pcon,#01111110B 

Id PREO. #00001 001 B 

Id RS232DO,#0BBH 

jp VACSWOPEN 


; reset the xtal / number 

t reset the peon no comparator output 

; no low emi mode 

; set the prescaler to / 2 for 8Mh2 

; set the rs232 data 

; start the transmission 


, MAIN LOOP 
MAINLOOP. 


clr 
Id 
Id 


i r 

cp 

K 

Id 

V 

MCLEARVAC 

cir 

SETVACCHANGE 
clr 
id 
Id 
Id 
Id 

call 
clr 

NOVACCHG. 


DOG2 

P01M,#P01MJNIT 
P3M.#P3MJNIT 

P2M.#(P2MJNr7+0) 

VACCHANGE,#GAAH 

ru.NOVACCHG 

VACFU\G,#OFFH 

z.MCLEARVAC 

VACFLAG,#OFFH 

SETVACCHANGE 

VACFLAG 

VACCHANGE 

SKIPRADlO,#0FFH 

ADDRESS,#1EH 

MTEMPH, VACFLAG 

MTEMPL.VACFLAG 

WRITEMEMORY 

SKIPRADIO 


ciear the second watchdog 

set mode pOOp03 out p04-p07in 

set port3 p30-p33 input analog mode 

p34-p37 outputs 

set port 2 mode 

test for the vacation change flag 

if no change the skip 

test for in vacation 

H in vac ctear 

set vacation 

set the change 

dear vacation mode 

one snot 
set skip flag 

set the non vol address to the VAC flag 
store the vacation flag 

write the value 
clear skip flag 
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cp 
jr 

srp 

clr 

id 

Id 

call 

tnc 

I' 

inc 

*r 

call 
inc 
call 
inc 
i r 

inc 

COUNTEB2DONE- 
call 
Id 
call 

and 

or 
id 
Id 
id 
call 

COUNTER1DONE. 

call 

CDONE. 

Id 

carl 
and 
Id 

add 

Id 
or 
call 
Clr 


NOCHANGEST. 


RESET: 
TESTRPM. 


call 

di 

cp 

jr 

JP 

i r 

cp 
jr 
ei 


STACKFLAG.#OFFH 
nz, NOCHANGEST 

#LEARNEE_GRP 

STACKFLAG 

SKIPRADIO.#0FFH 

address. #1CH 

READMEMORY 

mtempl 

n2,COUNTERl DONE 
mtemph 

nz,COUNTER2DONE 

WRITEMEMORY 

address 

READMEMORY 
mtempl 

nz,COUNTER2DONE 
mtemph 

WRITEMEMORY 
address, #1 CH 
READMEMORY 

mtemph,#00001111B 

mtemph.#30H 

ADDRESS, MTEMPH 

mtempl, DNFORCE 

mtemph.UPFORCE 

WRITEMEMORY 

CDONE 

WRITEMEMORY 


test for the change flag 
rf no change skip updating 

set the register pointer 
clear the flag 
set skjp flag 

set the no n vol address to the cyde c 
read the value 

increase the counter tower byte 

increase the counter high byte 

store the value 
get the next bytes 
read the data 

increase the counter low byte 

increase the vounter high byte 

save the value 

read the data 

find the force address 

set the address 
read the forces 

write the value 
, done set the back trace 

, got the new address 


address.#i CH ; get the first byte 
READMEMORY 

mtempl, #00001 1 1 1 b ; find the address 
address, #20H 
address, mtempl 
mtemph, STACKREASON ; 
mtemph .STATE ; or in the state 

WRITEMEMORY ; write the value to stack 

SKIPRADIO ."clear skip flag 


LEARN 


; do the team switch 


BRPM_COUNT,RPM_COUNT 
Z.TESTRPM 

START 

BRPM_TIME OITLRP^JFIME OUT 
nz, RESET 

BFORCEJGNORE.FORCEJGNORE 
nz.RESET 
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TESTRS232. 


cp 

V 
cp 

cp 

v 

cp 

V 

61 

CP 

l<" 

CP 

i r 

cp 

i r 

cp 
dr 


BAUTO_DEUWJH(.AUTO_DELAY_HI 
nz, RESET 

BAUTO_DELAY_LO,AUTO_DELAY_LO 
nz, RESET 

BCM D_DEB ,CMD_OEB 
nz.RESET 
ESTATE. ST ATE 
nz,RESET 


RSSTART^OFFH 
z,skiprs232 
RSCOMMAND,#0FFH 
z,skiprs232 

RS232DOCOUNT.#11d 

nz ( skiprs232 

RSCOMMAND.#30H 

nz.TEST3l 

RS232DO 


; test for starting a transmission 
; it starting a trans skip 
; test for the off mode 

; test tor output done 

; if not the skip 

; test for switch data 

; clear the data 


UPLIMOPEN- 


DNLIMOPEN. 


CMDSWOPEN 


WLSWOPEN 


VACSWOPEN 


tm 

p2,#UP LIMIT 

; test for up timit 

V 

nz UPLIMOPEN 


or 

RS232DO,#00000001B 

; set the marking bit 

tm 

p2,#DN uwrr 

; test for the down limit 

J r 

nz. DNLIMOPEN 


or 

RS232DO.#00000010B 

; set the marking bit 

cp 

CMD DEB,#0FFH 

; test for the command set 

Jf 

nz.CMDSWOPEN 


or 

RS232DO,#0000Ci100B 

; set the marking bit 

cp 

LIGHT DEB,#0FFH 

; test tor the worklight set 

jr 

nz.WLSWOPEN 

or 

RS23£DO,#00001 OOOB 

; set the marking bit 

cp 

VAC DEB,#OFFH 

; test fir the vacation set 


nz.VACSWOPEN 


or 

RS232DO,#0001 0000B 

; set the marking bit 

dec 

RSSTART 

; set the start flag 

id 

RSCOMMAND,#OFFH 

; turn off command 



; return 


Skiprs232: 

jp SKIPRS232 

TEST31. 

cp RSCOMMAND,#31H 

jr nz.TEST32 

Id RS232DO.STATE 

cp LEARNT,#OFFH 

jr z.NOTINLEARN 

or RS232DO,#00010O0OB 

NOTINLEARN- 

cp VACFLAG > #OOH ; test the vacation Hag 


; test for status data 

; read the state 

; tesl for learn mode 
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z.NOTiNVACATlON 
RS232DO,#001 00000B 


NOT IN VACATION. 

tm 

V 
or 

LIGHTISOFF. 

tm 

ir 
or 

AOBSFINE. 


pOJWORKLIGHT 
2.LIGHTISOFF 
RS232DO,#01 0OO0O0B 

AOBSF,#00000001B 
z, AOBSFINE 
RS232DOJ1 000O0O0B 

VACSWOPEN 


, test for the light on 

; mark the t>H 

; test tor aobs error 


TEST32 


ST ART OUT- 


LASTRPM 


cp RSCOMMAND,#32H 

\t nz,TEST33 

Id RS232DO.RPM_PER!OD_LO 

cp RSCCOUNT,#01H 

jr 2.LASTRPM 

Id RS232DO,RPM_PERIOD_H! 

dec RSSTART 

mc RSCCOUNT 

jr skiprs232 

clr RSCCOUISTT 

IP VACSWOPEN 


; lest tor rpm data 


; test for on transmitted last cycte 


; set the start flag 
; increase the count 
; return 

; reset the counter 
; return 


TEST33 


cp RSCOMMAND k #33H 

jr nz.TEST34 

id RS232DO.UPFORCE 

cp RSCCOUNT,#00 

K z.STARTOUT 

Id RS232DO.DN FORCE 

jr LAST RPM 


; test tor force data 


; test for the first byte 
; output 


; output 


TEST34 


TEST35' 


TEST36. 


TEST37. 


cp RSCOMMAND,#34H 

jr nz,TEST35 

id RS232PAGE,#00H 

jr RS232PAGEOUT 

cp RSCOMMAND,#35H 

jr nz,TEST36 

Id RS232PAGE,#10H 

jr RS232PAGEOUT 

Cp RSCOMMAN0,#36H 

jr IOJEST37 

id RS232PAGE,#20H 

\r RS232P AGEOUT 

cp RSCOMMAND,#37H 

jr ru,TEST38 


; test for radfc> page 


; test for force page data 


; test lor history page tdaia 


; test for history page 2 data 
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RS232PAGE,#30H 


RS232PAGFOUT 


RPBYTE 


TEST3S. 


WRITE LOOP1 


READLOOP1. 


WRITELOOP2 


READLOOP2- 


Id 

SKIPRADIO.#OFFH 

. set the skip radio flag 

Id 

ADDRESS.RSCCOUNT 

, find the address 

rcf 



rrc 

ADDRESS 


or 

ADDRESS.RS232PAGE 


call 

READMEMORY 

, read the data 

id 

RS232DO.MTEMPH 


lm 

RSCCOUNT,#01H 

, test which byte 

i r 

2, RPBYTE 

Id 

RS232DO.MTEMPL 

*" 


dr 

SKtPRADIO 

. turn off the skip radio 

CP 

noltvUN \ t ff i rn 

; test for the end 

IP 

2 LASTRPM 


JP 

ST ART OUT 


cp 

RSCOMMAND.#38H 

; test memory 

jr 

nz,TEST39 


(d 

RS232DO,#0FFH 

; flag set to error to start 

td 

SKIPRADlO,#0FFH 

; set the skip radio flag 

Id 

MTEMPH,#0FFH 

; set the data to write 

Id 

MTEMPL t #OFFH 


Id 

ADDRESS,#00 

; start at address 00 

WDT 



call 

WRITEMEMORY 


tnc 

ADDRESS 

, do the next address 

cp 

ADDRESS,#40H 

; test for the last address 


nz.WRlTEl.OOPl 


id 

ADDRESS,#00 

; start at address 0 

WDT 



call 

READMEMORY 

; read the data 

mc 

MTEMPH 

; test the high 

if 

nz.MEMORYERROR 

; rf error mark 

inc 

MTEMPL 

; test the low 

if 

nz.MEMORYERROR 

; rf error mark 

»nc 

ADDRESS 

; set the next address 

V 

ADDRESS,#40H 

; test for the last address 

Jf 

nz.READLOOPl 


Id 

MTEMPH,#QO0H 

t set the data to write 

Id 

MTEMPL.#O00H 


Id 

ADDR£SS.#00 

; start at address 00 

WDT 



call 

WRITEMEMORY 


inc 

ADDRESS 

; do the next address 

cp 

ADDRESS,#40H 

; test for the last address 

i r 

nz,WRrTELOOP2 


w 

ADDRESS,#00 

; start at address 0 
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TEST39- 


SKIPRS232- 


WDT 



call 

READMEMORY 

, read the data 

cp 

MTEMPH #00 

, test the high 

J r 

nz.MEMORYERROR 

; if error mark 

cp 

MTEMPL #00 

, test the low 

J' 

nz.MEMORYERROR 

; rf error mark 

inc 

ADDRESS 

, set the next address 

cp 

ADDRESS.#40H 

; test tor the last address 

jr 

nz,READLOOP2 


call 

CLEARCODES 


clr 

SKIPRADtO 

; clear the skip radio flag 

clr 

RS232DO 

; flag all ok 

3R 


IP 

VACSWOPEN 


cp 

RSCOMMAND,#39H 

; test memory 

V 

nz,SKtPRS232 


Id 

RSCOMMAND,#OFFH 

; turn off command 

call 

SETLEARN 


cp 

R DEAD TIME,#20 

; test for too long dead 

JP 

nz,MAlNLOOP 

; rf not loop 

clr 

RADIOC 

; dear the radio counter 

cir 

RFl^G 

; dear the radio flag 

JP 

MAINLOOP 

; loop forever 


, Radio interrupt from a edge of the radio signal 


RADIO INT 


RTIMEOK. 


push 

RP 

; save the radio pair 

srp 

#RADlO_GRP 

; set the register pointer 

id 

rtemph.TOEXT 

; read the upper byte 

Id 

rtempl.TO 

; read the lower byte 

tm 

IRQ,#00010000B 

; test for pending int 


z.RTIMEOK 

; * not then ok time 

tm 

rtempl,#10/XK>OOOB 

; test for timer reload 

J r 

z,RTtMEOK 

; if not reloaded then ok 

dec 

rtemph 

; if reloaded then dec high for sync 

clr 

R DEAD TIME 

; dear the dead time 

and 

$MR.mi11110B 

; turn oft the radio interrupt 

Id 

rtimedh.rtimeph 

; find the Difference 

H 

rtimedl.rtimepl 


sub 

rtimedl.rtempt 


sbc 

rtimedh, rtemph 

; in the past time and the past time 

tm 

rtimedh ( #l00O000OB 

; test for a negitive number 

jr 

z.RTIMEDONE 

; if the number is not negitive then 

id 

rtimedh, rtemph 

; find the difference 

id 

rtimedi.rternpt 
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sub 
sbc 

RTIMEDONE: 

tm 
J r 

INACTIVETIME 

cp 

J r 

Jf 

GOtNACTlVE* 

or 
dr 
Id 
W 
id 
Id 
J r 

ACTIVETtME. 

cp 

}* 

j' 

GOACTIVE 

and 

W 
Id 
Id 
Id 
Id 
ei 
cp 
I' 

MEASUREBLANK 
cp 

ip 

CP 
IP 
cp 

i r 
cp 

SETREC1MS. 

tm 

and 

or 

dr 

clr 

jr 

SETFIRST1MS: 

or 
cir 
clr 

SETREC3MS. 

and 


rtimedt rtimepl 
rumedh.rtimeph 

P3 #000001006 
nz.ACTIVETlME 

RINFILTER #0FFH 

z.GOlNACTIVE 

RADlO__EX1T 

IRQ .#01 00 000 0B 

RINFILTER 

rtirneih.rtimedh 

rtimetl.rtimedl 

rtimeph.rtemph 

rtimepl. rtempl 

RADI0_EX(T 

RINFILTER ( #O0H 
z GOACTIVE 
RADIO„EXfT 

IRQ.#00111111B 

R!NFlLTER,#OFFH 
rtimealt.rtimedh 
rtimeal.rtimedl 
rtjmeph.rtemph 
rtimepl ,rternpl 

radioc,#00H 
nz.lNSIGNAL 

rtimeih,#l10D 

ugt .CLEARR ADIO 

rtimeih,#40D 

ult.CLEARRADtO 

rtimeah.#03H 

ugt SETREC3MS 

nz.SETRECIWS 

rtimeal.#09DH 

ug1.SETREC3MS 

RFLAG.#00010000B 

z, SET FIRST IMS 

RFLAG.4M0111111B 

RFLAG.#00tO00OOB 

rad»o3h 

radio3t 

INCCOUr>TT 

RFLAG,#01000000B 
radiolh 
radio 11 
INCCOUKT 

RFLAG,#10t11111B 


i in the past time and the past time in temp 

♦ test the port for the edge 

; if ri was the active ttme then branch 

; test for active last time 
; »1 so continue 
; if not the return 

; set the bit setting direction to pos edge 

; set flag to inactive 

; transfer difference to inactive 

; transfer temp into the past 

; return 

; test for active last time 
; if so continue 
; if not the return 

; clear the bit setting direction to neo edge 
; transfer difference to active 
; transfer temp into the past 


test for Wank time 

if the count is not zero then we are in signal 

test the timer for > 55mS 

it > 55 then dear the radio 

test the timer for < 20mS 

if < 20mS then clear the radio 

test the sync pulse for a 3mS period first > 1 

rf 2mS or greater then 3mS sync code 

H less then 1 then it is a 1 mS sync code 

test for 1 .85 "middle value 2" 

rf greater then set a 3 

; test for the reception of the 1 m$ code 
; if the bit is not set then this is the first 1 ms 
; dear the flag so writing into 3mS word 
; set the flag saying 2nd 1mS word 
; dear the last reception 

; then k\c the count for insignal 

; set the flag for the first 1 mS word 
; clear the last reception 

; then inc the count for insignal 

; clear the flag so writing into 3mS word 
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dr 

ISOCOUNT 

inc 

RADtO_EXiT: pop 
tret 

INSIGNAL 

cp 

jp 

PULSEWOK 

cp 
JP 

BLANKWOK 

Id 
Id 

sub 
sbc 
jr 
cp 

Jf 
trn 

J r 
Jf 

NEGDIFF 

Id 

td 

sub 

sbc 

cp 

Jf 

) r 

tm 

j r 

SETTOO 

td 

SETT01. 

Id 
I' 

SETT02 

Id 

jr 

INCRECORD: 

tm 

J r 
Id 
Id 

add 
adc 
add 


radio3h 
radio3i 

radioc 

RADlO_EXIT 
RP 


rtjmeah,#9D 
ugl.CLEARRADIO 

rbmeth,#9D 
ugl.CLEARRADIO 

rtemph.rtirneth 

rtempl.rtimei! 

rtempl.rtimeal 

rtemph.rtimeah 

c. NEGDIFF 

rtemph,#OiH 

ugtSETTOO 

uH.SETTOl 

rtempl.#10OOOO0OB 

z.SETTOl 

SETTOO 

rtemph.rtimeah 

rtempl.rtimeal 

rtempl.rtimeil 

rtemph,rtimeih 

rtemph,#01H 

ugt,SETT02 

ult.SETTOl 

rtempi.#10000O0OB 

Z.SETT01 

SETT02 

RTEMP,#O0D 
INCRECORD 

RTEMP,#01D 
INCRECORD 

RTEMP,#02D 
INCRECORD 


RFLAG,#01000000B 
Z.MS3RECORD 
rtemph.ratiolh 
rtempl, radio 11 
radio! I.rtempl 
rad(Olh,rtemph 
radio! i.rtempl 


, clear the last reception 


, set the counter to the next word 


; reset the register pair 


. test the radio pulse width for 4 5mS 
, it greater then 4.5 then clear the radio 

, testthe radio blank width lor 4 5mS 
; if greater then 4 5 then clear the radio 

; transfer pulse time to temp reg 

, subtract the pulse from the blank 

; if Ihe drfference is negttive then branch 

; test for a number 1 

, if greater then set 0 

. H less then 1 set to 1 

, test for 80 or greater 

; if the diff is less then 80h 

; else set to a zero 

; transfer pulse time to temp reg 

; subtract the pulse from the blank 

; test for a number 1 

; if greater then set 2 

; it less then 1 set to 1 

, test for 80 or greater 

; H the drff is less then 8 Oh one 

; else set to a two 

; set the bit value to a 00 
; goto adding into the record 

; set the btt vaiuo to a 01 
; goto adding into the record 

; set the bit value to a 10 
; goto adding into the record 


test the radio flag for the area to be modifing 
H the bit is cleared then working the 3ms 
transfer the record to temp 
* 

add the number to ft self 2* for for base 3 
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adc radio"! h.rtemph 

add radioHrlemp 

adc radio1h,#O0h 

inc radioc 

cp radioc.#11D 

jr 2.GOTAWORD 

jp ugtCLEARRADIO 

jr RADlO_EXIT 


MS3RECORD 


GOTAWORD 


WARK3REC 


DONEONE 


TESTFORTWO. 


brec 


timez2win 


Id rtemph,radio3h 

Id rlempl,radio3l 

add radio3l.rtemp! 

adc radio3h,rtemph 

add radio3l,rtemp! 

adc radio3h,rtemph 

add radio 31. rtemp 

adc radio3h,#OOD 

inc radioc 

cp radioc.#1 1 D 

jr z.GOTAWORD 

jp RADIO_EXIT 


tm RFLAG,#O10OO0O0B 

|r 2.MARK3REC 

or RFU^G,#OO01DOO0B 

jr TESTFORTWO 

or RFLAG,#O00010O0B 

jr TESTFORTWO 

clr radioc 

jp RADIO_EXIT 

tm RFLAG t #OO01O0O0B 

jr 2,DOr^lEONE 

tm R FLAG, #00001 000 B 

jr 2.DONEONE 

tm R FLAG, #001000006 

jr 2.K1MOWCODE 

or RFLAG,#00000010B 

cp rtemp,#00 

jp z.KNOWCODE 

or RFLAG.#000001 OOB 

cp ZZW1N,#64D 

jr ugt.KNOWCODE 

cp STATE. #6 

jr z/tirnezzwin 

cp ST ATE, #5 

jr z.bmezzwin 

cp STATE,#2 

jr z.timezzwin 

jr KNOWCODE 


, increase the radio counter 
, test tor the last bit 
; if so we got a word 
; else garbage 

; else return nil the next bit comes along 


transfer the record to temp 

add the number to it serf 2* tor tor base 3 


add in the new value 

increase the radio counter 
test for the last bit 
if so we got a word 

else return till the next bit comes along 


; test the radio flag for the area we just m exiting 
; if the bit is cleared then the 3ms is fiHed 
; set the flag 

; jump to test for two codes 
; set the flag 

, jump to test for two codes 

; clear the radio counter 

, return 

; test for the 1 mS word 

; we just have one code done 

; test for the 3mS word 

. we just have one code done 

; test the flag for BC 

; if A code we do nothing 

7 set the B and C flag 

\ test word 10 for a 0 *C* oodr 

; if a C code were done 

; set the B code flag 

; test for 8 seconds from known B code 

; if not skip test 

; test for the stopped state 

: if stopped test zzwin 

; test for the down limit 

; if at the down limit 

; test for at up limit 

; if at the limit jump 

; etee no way 
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cp 

l r 
cp 

V 

,SETFB 

push 

srp 

call 

pop 

JP 

KNOWCODE 

clr 
cp 
IP 

id 

call 

Id 

cp 

jr 

STORECODE 

cp 

cp 

l r 
cp 

K 
cp 

jr 

call 
cp 

V 

STORE MATCH 

tm 

tm 
J r 

ACODE 

Id 

call 
inc 
inc 
and 
cp 

V 
td 

GOTAADDRESS * 
Id 
Id 
LD 
call 
Id 
Jf 

BCODE. 

cp 


rad)03h #90H , test ior the 00 code 
nz.KNOWCODE 

radio3l.#29H , test (or the 00 code 

nz KNOWCODE ; 

RP 

#LEARNEEJ3RP 

SETLEARN 

RP 

CLEARRADIO 


RRTO 

SKIPRADIO,#OFFH 
z.CLEARRADIO 

ADDRESS,#1 EH 

READMEMORY 

VACFLAG.MTEMPH 

LEARNT.#OFFH 

z.TESTCODE 

PRADIOlH.radiolh 

nz.STORENOTMATCH 

PRADIOlL,rad»o1l 

nz.STORENOTMATCH 

PRADI03H,radio3h 

nz.STORENOTMATCH 

PRADI03L,radio3l 

nz.STORENOTMATCH 

TESTCODES 

ADDRESS.#OFFH 

nz.NOWRITESTORE 


clear the got a radio flag 
test for the skip flag 

if skip flag is active then donot look at EE mem 

set the non vol address to the VAC flag 

read the value 

save into voljtal 

test 1or in learn mode 

if out of learn mode then test for matching 

test lor the match 

if not a match then loop again 

test for the match 

if not a match then loop again 

test for the match 

if not a match then loop again 

test for the match 

if not a match then loop again 

test the code to see if in memory now 

if there is a match pretend to store 


RFLAG,#OOXX)0100B ; test for the b code 

nz. BCODE ; rf a B code jump 

RFLAG,#O0OOO010B ; test for a C code 

nz.CCODE ; if a C code jump 

ADDRESS,#1 FH ; set the address to read the last written 

READMEMORY ; read the memory 

MTEMPH ; add 2 to the last written 

MTEMPH ; 

MTEMPH,#11111110B ; set the address on a even number 

MTEMPH.#17H ; test for the last address 

ult, GOTAADDRESS ; if not the last address jump 

MTEMPH,#00D ; set the address to 0 

ADDRESS, #t FH ; set the address to write the last written 

RTEMP f MTEMPH ; save the address 

MTEMPL,MTEMPH ; both bytes same 

WRITE MEMORY ; write it 

ADDRESS,rtemp ; set the address 

READYTOWRITE ; 

radK>3h,#90H ; test lor the 00 code 
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BCODEOK: 


CCODE 


cp 

f 

IP 

Id 

V 

id 


READYTOWRITE 
call 

NOWRITESTORE 
xor 
or 
id 
Id 
clr 
JP 

STORE NOTMATCH. 

Id 
Id 
Id 
Id 
JP 


nr. BCODEOK 
radio 3I.*r29H 
nz BCODEOK 
CLEARRADIO 

ADDRESS,#18H 
READYTOWRITE 

ADDRESS,#1 AH 

WRITECODE 

pO #WORKLIGHT 

ledport.#ledh 

LIGHT1S,#244D 

LEARNT,#0FFH 

RTO 

CLEARRADIO 

PRADKMH.radiolh 

PRADIOU.radioll 

PRADI03H,radto3h 

PRADl03Lrac5o31 

CLEARRADIO 


test for the 00 code 

SKIP MAGIC NUMBER 

set :he address tor the B code 

set the address for the C code 
wnte the code in radio 1 and radto3 
toggle light 

turn* off the LED for program mode 

tum on the 1 second blwik 

set learn mode timer 

disallow cmd from team 

return 

transfer radio into past 
get the next code 


; test for a active fault 

; if a avtve fault skip ted set and reset 

; turn on the LED tor flashing from signal 

; test the codes 

; test for a active fauH 

; if a avttve fault skip led set and reset 

; tum off the LED for flashing from signal 

; test for the not matching state 

; if matching the send a command if needed 

; else dear the radio 


TESTVAC. 


TSTSDISABLE 


or 

RFLAG,#00000001B 

; set the flag for recieving without error 

cp 

RTO.#101D 

; test for the timer time out 

jr 

ultNOTNEWMATCH 

; if the timer is active then do not reissue cmd 

CP 

VACFLAG,#00B 

; test lor the vacation mode 


Z.TSTSDISABLE 

; if not in vacation mode test the system disable 

cp 

ADDR£SS,#19H 

; test for the B code 

)f 

nz f NOTNEWMATCH 

; if not a B not a match 

cp 

SDISABLE.#32D 

; test for 4 second 

F 

ult.NOTNEWMATCH 

; if 6 s not up not a.new code 

dr 

RTO 

; dear the radio timeout 

cp 

ONEP2,#00 

; test for the 1 .2 second time out 

K 

nz.NOTNEWMATCH 

; if the timer is active then skip the command 


TESTCODE 


FSl 


FS2 


cp FAULTFLAG,#OFFH 

jr 2. FSl 

and ledport,#iedl 

call TESTCODE S 

cp FAULTFLAG,#OFFH 

jr z,FS2 

or tedport,#tedh 

cp ADDRESS ( #0FFH 

jr nz t GOTMATCH 

IP CLEARRADIO 
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RADIOCOMMAND 


zzwmclr. 


clr 

RTO 

; clear the radio ttmeout 

cp 

ADDRESS #19H 

; test tor a B code 

K 

ru.BDONTSET 

; it not a b code do not set flag 

clr 

ZZWIN 

; flag got matching B code 

Id 

BCODEFLAG,#077H 

; flag for aobs bypass 


BDONTSET 


TESTCODES 
NEXTCODE. 


clr 

LAST CMD 

; mark the last command as radio 

Id 

RADIO CMD,#0AAH 

; set the radio command 

F 

CLEARRADIO 

; return 

cir 

ADDRESS 

; start address is 0 

call 

READMEMORY 

; read the word at this address 

cp 

MTEMPKradolh 

; test tor the match 

K 

nz.NOMATCH 

; if not matching then do next address 

cp 

MTEMPL.rado1i 

; test 1or the match 


nz.NOMATCH 

; if not matching then do next address 

inc 

ADDRESS 

; set the second haJi of the code 

call 

READMEMORY 

; read the word at this address 

cp 

MTEMPH.rad»o3h 

; test for the match 

Y 

nz.NOMATCH2 

; if not matching then do the next address 

cp 

MTEMPLradio31 

, test tor the match 

jr 

nz,NOMATCH2 

; K not matching then do the next address 

ret 


; return with the address of the match 


NOMATCH: 
NOMATCH2 


inc 
cp 

V 


GOTNOMATCH 


W 
ret 


ADDRESS 

ADDRESS 
ADDRESS,#1CH 
ult, NEXTCODE 


ADDRESS.#OFFH 


, set the address to the next code 

; set the address to the next code 

; tes1 for the last address 

; if not the last address then try again 


, set the no match flag 

; and return 


NOTNEWMATCH: 
dr 
and 
clr 
Id 
IP 


CLEARRADIO. 


CLEARRADIOA 


SKtPRTO 


and 
Id 

K 
tm 

i r 

Clr 


RTO 

RFLAG, #0000000 1B 
racSoc 

LEARNT,#OFFH 
RADIO EXIT 


iRQ,#001t111lB 
RINFILTER,#OFFH 

RFLAG #0000000 1B 

2.SKIPRTO 
RTO 


; reset the radio time out 

; clear radio Hags leaving recievinc, w/o error 

; clear the radio bit counter 

; set the team timer turn off and backup 

; return 


; dear the bit setting direction to neg edge 
; set fla j to active 

; test for receiving without error 

; if i lag not set then donot clear timer 

, clear radio timer 
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clr radioc , clear the radio counter 

cir RFLAG ; dear trie radio fiag 

jp RADIO_EXIT ; return 


LEARN DEBOUNCES THE LEARN SWITCH 60mS 
. TIMES OUT THE LEARN MODE 30 SECONDS 
DEBOUNCES THE LEARN SWITCH FOR ERASE 6 SECONDS 

LEARN 


TESTLEARN 


srp 

#LEARNEE_GRP 

; set the register pointer 

cp 

STATE ,#DN POSITION , lest for motor stoped 

F 

zTESTLEARN 


cp 

STATE.#UP_POSITION ; test for motor stoped 

J r 

zTESTLEARN 


cp 

STATE ( #STOP 

, test for motor stoped 

i r 

z.TESTLEARN 

id 

leamt,#0FFH 

; set the team timer 

cp 

learnt,*240D 

; test for the learn 30 second timeout 

i r 

nz.ERASETEST 

; if not then test erase 

i r 

leamoff 

; if 30 seconds then turn off the learn mode 

cp 

leamdb,#236D 

; test for the debounced release 

K 

nz.LEARNNOTRELEASED ; rf the debouncer not released then jump 

clr 

learndb 

; clear the debouncer 

ret 


; return 


IEARNNOTRELEASED: 


SETLEARN* 


ERASETEST. 


cp 

learnt ( #OFFH 

; test for team mode 

ir 

nz.lNLEARN 

; rf tn learn jump 

cp 

leamdb,#20D 

; test for debounce period 

jr 

nz.ERASETEST 

; rf not then test the erase period 

cir 

learnt 

, dear the learn timer 

Id 

leamdb,#OFFH 

; set the debouncer 

and 

ledport.#tedi 

; turn on the led 

clr 

VACFUVG 

; clear vacation mode 

Id 

address,#1EH 

-; set the non vol address for vacation 

clr 

mtemph 

; dear the data for deared vacation 

dr 

mtempl 


Id 

skipradio,#0FFH 

; set the flag 

caH 

WRITEM EMORY 

; write the memory 

clr 

skipradio 

; dear the flag 

cp 

leamdb t #OFFH 

; test for learn button active 


nz.ERASERELEASE 

; if button released set the erase timer 

cp 

eraset,#OFFH 

; test for timer active 

i' 

nz.ERASETIMING 

; rf the timer active jump 

cir 

eraset 

; dear the erase timer 

cp 

eraset, #43 D 

; test for the erase period 


z,ERASETIME 

; rf timed out the erase 

ret 


; else we return 
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or 

ledport,#ledh 

. turn oft the led 

id 

skipradio #OFFH 

; set the flag to skip the radio read 

call 

CLEARCODES 

. ciear aif codes in memory 

cir 

skipradio 

, reset the flag lo skip radio 

Id 

leamt,#OFFH 

: set the team timer 

ret 


; return 


ERASERELEASE- 

Id eraset,#OFFH 
ret 


; turn otl the erase timer 

, retum 


INLEARN 

CP 
jr 
Id 

TESTLEARNTiMER 
cp 

leamoff 

Or 
Id 


learndb,#20D 

nzJESTLEARNTIMER 

teamdb.#OFFH 

tearnt t #2400 
nz t ERASETEST 

tedport ( #tedh 
leamt.#0FFH 
teamdb,#OFFH 
ERASETEST 


test tor the debounce period 
if not then test the learn timer for time out 
, set the team db 

; test tor the team 30 second timeout 
; if not then test erase 


, turn off the led 
, set the team timer 
, set the learn de bounce 
; test the erase timer 


WRITE WORD TO MEMORY 
ADDRESS IS SET IN REG ADDRESS 
DATA IS IN REG MTEMPH AND MTEMPL 
RETURN ADDRESS IS UNCHANGED 


WRITEMEMORY; 


push 

RP 

; SAVE THE RP 

srp 

#LEARNEE_GRP 

; set the register pointer 

call 

STARTB 

; output the start bit 

Id 

serial,#001 100008 

; set byte to enable write 

call 

SERIALOUT 

routput the byte 

and 

csport,#cs! 

; reset the chtp select 

call 

STARTB 

; output the start bit 

Id 

serial,#010O0000B 

; set the byte for write 

or 

serial, address 

; or in the address 

call 

SERIALOUT 

; output the byte 

td 

serial.mtemph 

; set the first byte to write 

call 

SERIALOUT 

; output the byte 

td 

serial, mtempl 

; set the second byte to write 

call 

SERIALOUT 

; output the byte 

call 

ENDWRITE 

; wait for the ready status 

call 

STARTB 

; output the start bit 

id 

serial,#00O0O0O0B 

; set byte to disable wrtte 

call 

SERIALOUT 

; output the byte 

and 

csport,#csJ 

; reset the chip select 
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pop 
ret 


RP 


. reset the RP 


. READ WORD FROM MEMORY 

. ADDRESS IS SET IN REG ADDRESS 

DATA IS RETURNED IN REG MTEMPH AND MTEMPL 
. ADDRESS IS UNCHANGED 


READMEMORY- 


push 

RP 


srp 

#LEARNEE_GRP 

; set the register pointer 

call 

STARTB 

, output the start brt 

Id 

seriaJ,#10000000B 

; preamble tor read 

or 

senal .address 

; or in the address 

call 

SERIALOUT 

; output the byte 

call 

SERtALIN 

, read the first byte 

id 

mtemph, serial 

, save the value in mtemph 

call 

SERiALiN 

; read teh second byte 

!d 

mtempl, serial 

; save the value in mtempl 

and 

csport,#csl 

; reset the chip select 

pop 

RP 

ret 




, WRITE CODE TO 2 MEMORY ADDRESS 

. CODE IS IN RADIOIH RADI01L RADI03H RAD03L 


WRITECODE 


push 

RP 

srp 

#LEARNEE_GRP 

Id 

mtemph, RAD 101 H 

Id 

mtempl.RADiOIL 

call 

WRITE MEMORY 

mc 

address 

Id 

mtemph RAD KD3H 

Id 

mtempl, RADI03L 

call 

WRfTEMEMORY 

pop 

RP 


; se: the register pointer 

, transfer the data from radio 1 to the temps 

, write the temp bits 
; next address 

; transfer the data from radio 3 to the temps 
; wrrte the temps 
; return 


, CLEAR ALL RADIO CODES IN THE MEMORY 


■*•**••••••*****»*•»•#»*•»■■♦♦ »i 


CLEARCODES 


CLEARC: 


push 

RP 


Srp 

#LEARNE£ GRP 

; set the register pointer 

Id 

RADiOl H,#0FFH 

; set the codes to illegal codes 

ki 

RADI01U#OPFH 

id 

RAD!O3H,#0FFH 


td 

RADIO3L.#0FFH 


Id 

address,#OCH 

; clear address 0 

call 

WRITECODE 

; *A0" 


***** 
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inc 

address 

, set the nexi address 

cp 

address #1BH 

; test for the last address of radra 

K 

uit CLEARC 


clr 

mtemph 

, clear data 

clr 

mtempj 


Id 

address.#1FH 

; dear address F 

cat! 

WRITEMEMORY 


pop 

RP 


ret 


, return 


'. START BiT FOR SERIAL NONVOL 

. ALSO SETS DATA DIRECTION AND AND CS 


STARTB 


and 

csport,#cs! 


and 

clkport.#ctockl 

; start by cleanng the brts 

and 

dioport,#dol 


id 

P2M,#(P2MJNrr+0) 

; set port 2 mode forcing output mode data 

or 

csporl.#csh 

; set the chip select 

or 

dioport.#doh 

; set the data out high 

or 

clkport,#ciockh 

; set the clock 

and 

ctkporV#clockl 

; reset the clock low 

and 

dioport,#dol 

; set the data low 

ret 


; return 


END OF CODE WRITE 


ENDWRlTE 

and 
nop 
or 
id 

ENDWR1TELOOP 
td 

and 
l r 


ret 


csport.#csJ 

csport,#csh 
P2M,#(P2MJNIT+4) 

temph.dioport 

temph 1 #doh 

z.ENDWRfTELOOP 


and csport#cs! 


; reset the chip select 
; delay 

; set the chip select 

; set port 2 mode forcing input mode data 

; read the port 
; mask 

; i1 the bit is k>w then loop till we are done 
; reset the chip select 


P2M.#(P2M JNtT+G) ; set port 2 mode forcing output mode 


; SERIAL OUT 

; OUTPUT THE BYTE IN SERIAL 


SERIALOUT: 

Id 

id 

SERIALOUTLOOP 
rlc 
jr 

ONEOUT: 

or 


P2M,#fP2MJNTT+0) 
templ.#8H 

serial 

ncZEROOUT 
diopon\#doh 


; set port 2 mode forcing output mode data 
, set the count for eight bits 

; get the bit to output into the carry 
; output a zero if no carry 

; set the data out high 
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ZEROOUT: 


or 

ctkpori,#ctockri 

, set the dock high 

and 

clkport.tfclockJ 

. reset the clock low 

and 

dioport #dol 

, reset the data out low 

djnz 

templ.SERIALOUTLOOP 



; loop tilt done 

ret 


, return 

and 

diopon\#dol 

; reset the data out low 

or 

cikpon\#dockh 

, set the clock high 

and 

cikport f #ciockl 

; reset the clock low 

and 

dioport,#dol 

; reset the data out low 

djnz 

templ.SERIALOUTLOOP 



; loop till done 

ret 


; retorn 


. SERIAL IN 

. INPUTS A BYTE TO SERIAL 


SER1ALIN 

id 
Id 

SERIALINLOOP. 


DONTSET 


or 

ret 
Id 

and 

V 
set 

rtc 
and 

djn2 

ret 


P2M,#(P2M_INfT+4) 
tempi ,#8H 

ctkpon\#ctockh 

lemph, dioport 
temph.#doh 
2. DONTSET 


; set port 2 mode forcing input mode data 
; set the count lor eight bits 

; set the dock high 
; reset the carry flag 
; read the port 
; mask out the bits 


serial 

Cikport.#clQCW 
lempl.SERIALINLOOP 


; set the carry flag 

; get the bit into the byte 
; reset the dock low 

; loop till done 
; return 


. TIMER UPDATE FROM INTERUPT EVERY ImS 


TIMERUD. 


TASKO 


dec TOEXT ; decrement the TO extension 

inc TASKSW1TCH ; set to the next switch 

and TASKSWITCH ( #00000111B ;0-7 

tm TASKSWrrCH,#OO0OO00lB ; test tor odd 

jr nz,TK1357 ; it so then jump 

cp TASKS WITCH ,#2d ; test for 2 

jr z,TASK2 

cp TASKSWlTCH,#4d ; test for 4 

jr 2.TASK4 

cp TASKSW1TCH,#6d ; test for 6 

}r 2.TASK6 


or 

ei 

push rp 


IMR,#RETURN_IMR ; turn on the interrupt 
; save the rp 
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srp 
call 
pop 
iret 


#TIMER_GROUP 
switches 


, set the rp for the switches 
; test the switches 


TASK2: 


or 

ei 

push 

srp 

call 

pop 

tret 


IMR.#RETURNJMR 


#T1MER GROUP 
STATEMACHINE 


; tum on the interrupt 

save the rp 

do the motor function 
return the rp 


TASK4 

or IMR,#RETURNJMR 
ei 

push rp 

srp #TIMERJ3ROUP 
call switches 
pop rp 
iret 


; turn on the interrupt 
; save the rp 

; set the rp for the switches 
; test the switches 


TK1357 

cp 
JP 

TASKS 

cp 

dec 

Id 

enable J 1 

id 
or 
or 

continue* 

IP 

TASK6. 

or 

ei 

push 

srp 

cali 

pop 

iret 


TASKSWITCH,#05D 
nz t TASK1357EXIT 


PWM_STATUS,#OFFH 

ne,enableJ1 

PWM_OFF 

nz, continue 

PWM^STATUS,#OOH 

PWM OFF,#14H 

p3.#PWM_Ht 

tmr,#TlMERj_EN 

TASK1357EXfT 


(MR,#RETURN_IMR 
rp 

#TlMER_GROUP 
STATE MACHINE 
rp 


, test tor task 5 

; discharge for at least 2x 

; take pwm pin high 
; enable tt 

; EXIT UPDATING TIMERS 

; tum on the interrupt 

; save the rp 

; do the motor function 
; return the rp 


TASK1357EXIT 

push RP 
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or IMR,#RETURNJMR , turn on the interrupt 
ei 

call RS232 ; do the rs232 buss 

tm TASKSWITCH,#OO0OOD01 B ; test lor state a 1 in bO 

jr z.ONEMS 

tm TASKSWiTCH,#OO00001 OB , test for state almbi 

jr z.ONEMS 

srp #TtMER_GROUP ; if a 3 or 7 then do the auxlight 

call AUXLIGHT 


ONEMS 


NOFAIL 


FOURMS- 


TESTPERIOD 


FA REV. 


RPMTDONE 


SKIPLIGHTE 


dec 

i r 

Id 


inc 
mc 
cp 
JP 

Cir 
cp 
J r 

dec 

di 
Or 
cir 
ei 
I' 

cp 

i r 

Id 

cp 

) r 
6l 

dr 
dr 
ei 
cir 
ir 

Id 

Id 

and 

Id 

call 

dec 

cp 
)' 

dec 


#LEARNEE_GRP 

AOBSTEST 

nz.NOFAlL 

AOBSTEST.md 

AOBSF,#00000001b 

t4ms 

t125ms 

|4ms,#4D 

n2,TESTl25 

14ms 

RPMONES.#O0H 
z,TESTPERlOD 

RPMONES 

RPM_COUNT 
BRPM_COUNT 

RPMTDONE 

RPMCLEAR,#OOH 

nz.RPMTDONE 

RPMCLEAR,#l22d 

RPM_COUNT.#S0d 

ugt.FAPEV 

RPM_COUNT 
BRPM_COUNT_ 

FAREVFLAG 
RPMTDONE 


; set the register pointer 

; decrease the aobs test timer 

; if the timer not at 0 then ft didnot fail 

, it it tailed reset the timer 

; set the tatted flag bit 

; increment the 4mS timer 
; increment the 125 mS timer 
; test for the time out 
; if not true then jump 

; reset the timer 

; test tor the end of the one sec ttmer 
, if one sec over then test the pulses 
; over the period 
; else decrease the timer 

; start with a count of 0 
, start with a count of 0 


; test the clear test timer tor 0 

; if not timed out then sktp 

; set the dear test time for next cyde .5 

; test the count for too many pulses 

; if too man pulses then reverse 

; clear the counter 
; dear the counter 

; clear the flag temp test 
; continue 


FAULTCODE ( #06h ; set the fault flag 
FAREVFLAG.#0a8H ; set the forced up flag 
pO,# A L8 *C WORKUGHT ; turn off light 
REASON,#80H ; rpm forcing up motion 

SET AREV STATE ; set the autorev state 


RPMCLEAR 
LlGKTtS 1 #00 
Z.SKIPLIGHTE 
UGKT1S 


; decrement the timer 
; test for the end 

; down count the light time 
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DONOTCB 

RTOOK 

SKIPRRTO 

PRSWCLOSED 

LEARNDBOK' 
TEST125 

N125 

ONE25MS 

SKiPAUXLEARNSW: 
TESTFA 

D0 12 


inc 

R DEAD TIME 



RTO,#101D 

; test for the radio time out 

r 

ult.DONOTCB 

, it not timed out donot clear b 

clr 

BCODEFLAG 

, else dear the b code flag 

inc 

RTO 

, increment the radio time out 


m.RTOOK 

; H the radto timeout ok then skip 

dec 

RTO 

t back turn 

cp 

RRTO,#0FFH 

; test tor roR 


z.SKIPRRTO 

, if so then skip 

mc 

RRTO 

W 

temp.psport 

- , read the program switch 

and 

temp,#psmask 

, mask for switch 

J r 

2.PRSWCLOSED 

, if the switch is closed count up 

cp 

leamdb ,#00 

, test for the non decrement point 

jr 

2 LEARNDBOK 

, tf at end skip dec 

dec 

leamdb 


LEARNDBOK 



inc leamdb , increase the learn debounce timer 

cp leamdb,#OH , test tor overflow 

K nz, LEARNDBOK ; if not 0 skip back turning 

dec leamdb 


cp 

tt25ms.#125D 

, test for the time out 


z,ONE25MS 

, tf true the jump 

cp 

t125ms,#63D 

. test for the other timeout 

j f 

ru.Nl25 


call 

FAULTB 


pop 

RP 


iret 



cp 

AUXLEARNSW f #OFFh 

; lesl for the rollover position 


2.SKIPAUXLEARNSW 

; if so then skip 

inc 

AUXLEARNSW 

; increase 

cp 

ZZW1N,#0FFH 

; lest for the roll position 

V 

z.TESTFA 

; tf so skip 

inc 

ZZWIN 

; if not increase the counter 

cafi 

FAULTB 

; call the fault blinker 

dr 

1125ms 

, reset the timer 

inc 

di 

DOG2 

; incrwease the second watch dog 

inc 

SDISABLE 

; count off the system disable timer 

i f 

nz,DOl2 

; if not rolled over then do the 1 .2 sec 

dec 

SDISABLE 

; else reset to FF 

cp 

ONEP2,#00 

. test for 0 

K 

2.INCLEARN 

; H counted down then increment team 
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LEARNTOK 


ERASETOK. 


dec ONEP2 


fault blinker 


FAULTB: 


TESTAOBSM 


NOPULSE. 


AOBSSH 


GOTFAULT 


inc 

leamt 

cp 

leamt.#OH 

K 

nz. LEARNTOK 

dec 

leamt 

ei 
inc 

eraset 

cp 

eraset,#OH 


nz,ERASETOK 

dec 

eraset 

pop 

RP 

iret 


inc 

FAULTTIME 

cp 

FAULTTlME,#80h 

K 

nz.FlRSTFAULT 

clr 

FAULTTIME 

clr 

FAULT 

cp 

FAULTCODE.#05h 

jr 

UGE.GOTFAULT 

cp 

CMD_DEB,#OFFH 

F 

nz, TESTAOBSM 

cp 

FAULTCODE,#03h 

jc 

z.GOTFAULT 

Id 

FAULTCODE t #03h 

K 

FIRSTFAULT 

tm 

AOBSF,#00000001b 


z, NO AOBS FAULT 

1m 

AOBSF ( #00000010b 

i r 

z.NOPULSE 

Id 

FAULTCODE,#04h 

ir 

GOTFAULT 

cp 

FAULTCODE,#04h 

\r 

z.GOTFAULT - 

Id 

FAULTCODE,#04h 

V 

FHSTFC 

tm 

P3 f #00000001b 


2.AOBSSH 

cp 

FAULTCODE,#01h 

V 

z.GOTFAULT 

Id 

FAULTCODE,*0lh 

l> 

FIRSTFC 

cp 

FAULTCODE,#02h 

jr 

Z.GOTFAULT 

W 

FAULTCODE,#02h 


FIRSTFC 

Id 

FAULT, FAULTCODE 


, else down count 

; increase the team timer 

; test for overflow 

. it not 0 skip back turning 


, increase the erase timer 

, test tor overflow 

; if not 0 skip back turning 


; increase the fault timer 

; test for the end 

. if not timed out 

■ reset the clock 

; clear the last 

; test for call dealer code 

; set the fault 

, test the debouncer 

; if not set test aobs 

; test for command shorted 

; set the error 

. set the code 


test for the skiped aobs pulse 

if no skips then no faults 

test for any pulses 

H no pulses find if hi or low 

else we are intermrttent 

set the fault 

if same pot fault 

test the last fault 

if same got lauft 

set the fault 

test the input pin 
jump if aobs is stuck hi 
test for stuck low in the past 
set the fault 
set the fault code 

test tor stuck high in past 
set the fault 
set the code 


; set the code 
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NOAOBSFAULT 

FIRSTFC. 

FIRSTFAULT. 


swap FAULT 
( r FIRSTFC 


BIT ONE 
TESTSDI. 

NOFAULT 


cir 
clr 


CP 

K 
id 
cp 

) r 
cp 

J r 
tm 

and 
ret 


FAULTCODE 
AOBSF 


FAULT,#00 

z .NOFAULT 

FAULTFLAG,#OFFH 

LEARNT,#OFFH 

nz.TESTSDl 

FAULT , F AULTTIM E 

ULE.TESTSDI 


; dear the fault code 
; clear flags 

; test for no fauH 

set the fault flag 

test for not in Jearn mode 

if in learn then skip setting 


test the 1 sec bit 


FAULTTIME,#00001000b 

nz.BiTONE 

ledport#iedJ ; turn on the led 


or ledport r #iedn 
ret 

dr FAULTFLAG 
ret 


, turn off the led 


; clear the flag 


, MOTOR STATE MACHINE 


STATEMACHINE 




call 

RS232 



xor 

pO,#OOO01 000b 

; toggle aux output 


dec 

FORCE PRE 

; dec the prescaier 


cp 

DOG2,#8d 

; test the 2nd watchdog for problem 

IP 

ugt, START 

; it problem reset 


cp 

STATE ,#06d 

; test for legal number 


ip 

ugl. start 

; if not the reset 


jp 

z,stop 

; stop motor 

6 

cp 

STATE ,#03d 

; test lor tegat number 


Jp 

z, start 

; if not the reset 


cp 

STATE,#00d 

; test for autorev 


ip 

r.auto rev 

; auto reversing 

0 

cp 

STATE.#01d 

; test for up 


jp 

z.up direction 

; door is going up 

1 

cp 

STAT£,#02d 

; test for autorev 


Jp 

i,up_position 

; door is up 

2 

cp 

STATE,#04d 

; test for autorev 


ip 

z,dn_directK>n 

; door ts going down 

4 

Jp 

dn_po si ton 

; dx>r is down t 

5 


, AUX OBSTRUCTION OUTPUT AND LIGHT FUNCTION 
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AUXLIGHT 
test Jig ht_on. 


N01S 


dec_pre_Ught. 


exitjight 


cp 

V 
cp 

i r 

cp 

xor 
clr 

cp 
K 

decw 

jr 

xor 

Id 

*d 

dec 

ir 

ctr 

cp 

dec 
|r 

decw 

and 
ret 


UGHT_FLAG.#LiGHT 

z.dec _prejjghi 

LIGHT1S.#00 

z,N01S 

LIGHT 1S.#0 Id 

nz,NOlS 

p0 #WORKLiGHT 

LIGHHS 


test for no flash 
if not skip 
test tor timeout 
it not skip 
toggle light 
oneshoted 


FLASH_FLAG,#FLASH 
nz,dec_prejight 
FLASH_DELAY 
nz,decj>rejtght 
p0,#WORKL!GHT 
FLASH DELAY_Hl,#FLASH_HI 
FLASH DELAY LO,#FLASH_LO 
FLASH_COUNTER 
nz.dec_prejight 
FLASHFLAG ; 

L!GHT_TIMER_Hi,#OFFH 
z,exitjight 
PREJJGHT 
nz.exitjight 
LfGKT_TlMER 
nz.exttjight 
p0.# A CLIGHT_ON 


; 250 ms period 
; toggle light 


test for the timer ignore 
if set then ignore 
doc 3 byte light timer 


tf timer 0 turn off the hght 
turn oft the light 

; return 


AUTO REV ROUTINE 


auto rev 


LEAVEREV. 


cp 

and 

dr 

WDT 

call 

Id 

and 
<* 

decw 
decw 

ei 
Jf 


FAREVFLAG,#088H 

nz.LEAVEREV 

pO,# A LB A C WORKL1GHT 

FAREVFLAG 


HOLDFREV 
LIGHT_FLAG,#LIGHT 


; test for the forced up flag 

; turn off tight 
; one shot temp test 

; kick the dog 

; hold off the force reverse 
; force the light on no Wink 


pO,#*LB A C MOTORJJP #*C MOTOR.DN ; disable motor 


AUTO_DELAY 
BALfTO_DELAY 

nz.arswHch 


; wart for .5 second 
; wart for .5 second 

; test switches 


pO,#00001000b 


; set aux output lor FEMA 
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NOUPLIW 


arswitch 


e*ti_auto rev 


tm 

p2#UP LIMIT 

: test the limit 

K 

nz.NOUPLJM 

; if limit set stop 

LD 

REASON.#60H 

; set the reason as early limit 

JP 

SET_STOP_STATE 

, set stop 

Id 

REASON ,#40H 

, set the reason for the change 

IP 

SET_UP_DiR_STATE 

, set the state 

id 

REASON. #OOH 

~ . set the reason to command 

cp 

SW DATA,#CMD SW 

, test for a command 

IP 

z.SET STOP STATE 

, d so then stop 

Id 

R£ASON,#10H 

, set the reason as radio command 

cp 

RADIO CMD.#0AAH 

. test tor a radio command 

IP 

2,SET STOP STATE 

, il so the stop 

ret 


; return 


HOLDFREV 


td 
W 
di 

Cir 
Clr 
ei 
ret 


RPMONES,#244d 
RPMCLEAR,#l22d 

RPM COUNT 
BRPM COUNT 


, set the hold off 

; clear rpm reverse .5 sec 

, start with a count of 0 
; start wrth a count of 0 


DOOR GOING UP 


up^direclion 


UPON 


UPOPF 


SKIPUPRPM 


WDT 

call 

W 

and 

cp 

l r 

mc 

Of 

cp 


cp 

f r 

i r 

td 


HOLDFREV 
LlGHT_FLAG ) #LIGKT 
pO,# A LB *C MOTOR_DN 

MOTDEU#0FFH 

2.UPON 

MOTDEL 

pO.#UGKT_ON 

MOTDEU#20d 

uie.UPOFF 


; kick the bog 
. hold oft the tore* reverse 
; lore* the light on no Wink 
; disable down relay 

; test tor done 

; if done skip delay 

; increase the delay timer 

; turn on the light 

; test for 40 seconds 

; rt not timed 


pO.#MOTOR_UP A | #LK3KT_ON ; turn on the motor and bgrrt 


cp 


FORCE_K5NORE ,*G1 
ru.SKIPUPRPW 
RPM_ACOUNT.#02H 
ugt, SKIPUPRPM 
FAULTCODE,#05h 

FORCE JGNORE.#00 
nz , tes i_up_sw_pre 


test fro the eric) of the force ignore 
if not donot tost rpmoount 
test for less the 2 pulses 


; test timer for done 

; if timet not up do not test force 


89 


5.780.987 


90 


TES" 


JJP FORCE 
d> 

dec 
dec 
ei 

V 
di 
Id 
Id 

sub 
sbc 
tm 


•failed_up_rpm 


test_up_s*_pre 


iest_Lip_sw 


upjirnii_dec 


get_sw 


test_upjtme. 


exit_up_dir 


RPM_T!ME_OUT 
BRPM TIME OUT 


. decrease the timeout 
, decrease the timeout 


2,failed_upjpm 

, turn off the interrupt 
RPM_SET D1FF LO.UP FOR£E_LO 
RPM SET~DlFF~HLUP_FORGE_Ht 
RPM"srr~OIFF_tO,RPM_PERIOD LO 
RPM"SET"DIFF Hl.RPM_PERlOD ~HI 
RPM~SET~DlFF~Hl.moO00000B ~ ; test high brt (or s»gn 
z,test_up_sw , it the rpm penod is ok then switch 


JP 

tm 

V 
di 

dec 
dec 

ei 
tm 

id 
J r 

W 

iP 

id 
cp 

ip 
w 

CP 

K 

IP 

W 

decw 
JP 

ret 


REASON.#20H 
SET_STOP_STATE 

FORCE_PRE, #00000001 B 
nz,test_up_sw 

FORCE IGNORE 
BFORCE IGNORE 


p2,#UPJJMIT 
z up Jtmrt dec 
limrt.#LIM7T_COUNT 
get_$w 

limrt.get sw 
REASON #50 H 
SET_UP_POS_STATE 

REASON.#10H 
RADIO CMD.#OAAH 
2.SET STOP_STATE 
REASON, #00 H 
SW_DATA,#CMD_SW 
ne.test_up_time 
SET_STOP_STAT6 

REASON.#70H 
MOTOR TIMER 
tSET STOP.STATE 


. set the reason as force 

; test for odd !2 
; if odd skjp 


; enable interrupt 

; have we reached the Itmtt 0 


; dec de bounce count 
; set the reason as limrt 


; set the radio command reason 
; test tor a radio command 
; if so stop 

; set the reason as a command 
; test for a command condmon 


; set the reason as a time out 
; decrement motor timer 


; return to caller 


DOOR UP 


up _posrton. 


WDT 
and 


FAREVFt*G,#0B8H 
nz, LEAVE LK3HT 
pO.#*LB *C WORKL1GHT 
UPNOFLASH 


; kick the dog 

; test tor the forced up flag 

; torn off light 

; skip clearing the ftash flag 
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LEAVELIGHT 

Id 

UPNOFLASH 

Id 

and 
cp 

J r 

Id 

cp 

V 

Id 

cp 

jr 

ret 

SETDNDIRSTATE- 
Id 

iP 


work_up 


up_pos_ret 


id 
ret 


LIGHT_FUG ( #OOH 

dmtt#LIMIT COUNT 

pO,# A LB A CMOTOR_UP 

SW_DATA,#LIGHT_SW 

z,work_up 

REASON,#10H 

RADIO_CMD,#OAAH 

2.SETDNDIRSTATE 

REASON,#00H 

SW_DATA.#CMD_SW 

2.SETDNDIRSTATE 


ONEP2,#10D 

SET_DN_DIR 


STATE 


, altow blink 

* #*C MOTOR_DN ; disable motor 
; light sw debounced? 

. set the reason as a radio command 

; test for a radio cmd 

, if so start down 

; set the reason as a command 

. command sw debounced? 

, if command 


; set the 1 2 sec timer 


pO.#WORKLIGHT 
LIGHT_TIMER_H!,#0FFH 


DOOR GOING DOWN 


dn_oNrection 


DNON 


WDT 


call 

HOLDFREV 

clr 

FLASH FLAG 

W 

L!GHT~FLAG,#LIGKT 

and 

pO.# A LB A C MOTOR UP 

cp 

MOTDEL,#0FFH 

K 

z.DNON 

mc 

MOTDEL 

or 

pO,#LIGHT ON 

cp 

WOTDEL,#20d 

K 

ule.DNOFF 


; toggle work fight 
; set the timer ignore 


; return 


; kick the dog 

; hold off the force reverse 

; turn off the flash 

, force the light on no blink 

; turn off motor up 

; test for done 

; if done skip delay 

, increase the delay timer 

; turn on the light 

; test for 40 seconds 

, if not timed 


DNOFF 


SKIPDNRPM: 


DO.#MOTOR_DN*|#LIGHT_ON ; turn on the motor and light 


cp FORCEJGNORE,#01 

jr nz.SKIPDNRPM 

cp RPM_ACOUNT,#02H 

jr ugt, SKIPDNRPM 

Id FAULTCODE,#05h 

cp FORCEJGNORE,#00 

jr n2,test_dn_sw _pre 

pp ForcedDown,#1h 

jr z,test_dn_sw_pre 


TEST_DOWN_FORCE: 
di 


test fro the end of the force ignore 
if not donot test rpmcouni 
test for less the 2 pulses 


; test timer for done 

; il timer not up do not lest force 

; test the fiag to skip rpm if forcing down 
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dec 
dec 
ei 

J r 

di 
Id 
Id 

sub 
sfoc 
tm 

tatled_dn_rpm 

id 
JP 

test_dn_sw_pre 

tm 

Jf 
di 

dec 
dec 

1est_dn_sw. 

ei 
tm 

i r 

Id 

i r 

dn_limit_dec 

djnz 
Id 

cp 
K 
Id 

J f 

TESTRADIO 

cp 

jf 
cp 
F 
Id 

TESTFORCEIG 

cp 

Jf 

cp 

i r 

id 

NOAREVDN. 

and 

jP 

call sw dn; 

~ W 
cp 

ip 

Id 
cp 


RPM_T)WE_OUT , decrease the timeout 

BRPM_T!ME_OUT ; decrease the timeout 

z,lai£ed_da_rpm 

; turn off the interrupt 
RPM_SET_DtFF_LO.DN_FORCE_LO 
RPM_SET_D)rFJHl,DN_FORCEj-it 
RPM_SET_DIFF_LO,RPM_PERtOD LO 
RPM_SET_D!FF_H!,RPM ^PERIOD HI 
RPM_SET_DIFFJ4U10000000B " ; test high bit for sign 
z,test__dn_sw ; it the rpm period is ok then switch 


REASON.#20H " ; set the reason as force 

SET_AREV_STATE ; set the state 

FORCE_PRE,#00000001B ; test for odd f2 

nz,ies1_dn_sw ; if odd skip 

FORCEJGMORE 
BFORCEJGNORE 


turn on the rntemjpt 


p2,#DN_UMFT 

are we at down timJt? 

z.dn limit dec 


hmtt.#UMTT_COUWT 

reset the limit 

call_sw_dn 


iimrt.cai! sw dn 

dec debounce counter 

REASON,#50H 

set the reason as a limit 

CMD DEB,#0FFH 

test for the switch still held 

nz, TESTRADIO 


REASON,#90H 

closed with the control held 

TESTFORCEIG 


LAST CMD.#00 

test for the last command bemg rad»o 

nz.TESTFORCEIG 

it not test force 

BCODEFLAG,#077H 

test for the b code flag 

nz.TESTFORCEIG 

REASON,#0A0H 

; set the reason as b code to limit 

ForcedDown,#00 

; test for force down action 

nz, NOAREVDN 

; H set skip early limits 

FORCE K3NORE,#00H 

; test the force ignore for done 

z,NOAREVDN 

; a rev if limit before force enabled 

REASON,#60h 

; earty limit 

SET_AREV_$TATE 

; set autoreverse 

pQ,#*LB A C MOTOR DN 


SE7_DN_POS_STATE 

; set the state 

R£ASON,#10H 

; set the reason as radio command 

RADIO CMD,#0AAH 

; test for a radio command 

z.SET AREV STATE 

; if so arev 

REASON,#00H 

; set the reason as command 

SW DATA,#CMD SW 

; test for command 
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test_dn_time. 


dec obs count 


OBSAREV. 


OBSTESTB 


exit dn dir. 


do_reverse. 


;exit 2 dn 


IP 
Id 

decw 

ip 

djnz 
cp 
if 
cp 

i r 

ret 

W 
Id 
ki 
id 
Id 
jP 

cp 

Id 
cp 

cp 

)' 
cp 

K 
cp 


ret 


z,SET_AREV_STATE 

REASON,#70H 

MOTOR_TIM£R 

z,SET_AREV_STATE 

obs_co unt , exit_dn_dir 
LAST CMD,#00 
z.OBSTESTB 
CMD_DEB.#OFFH 
nz.OBSAREV 


; set the reason as timeout 
, decrement motor timer 


, dec aux obs count 

; test (or the last command from radio 

; if last command was a radio test b 

; test for the command switch holding 

; it the command switch ts not holding 

; do the autorev 

, otherwise skip 


FLASH_FLAG.#OFFH ; set flag 

FLASH COUNTER,#20 ; set for 1 0 flashes 

FLASH DELAY HI,#FLASH_HI , set for .5 Hz period 
FLASH DELAY LO,#FLASH LO 


REASON,#30H 
SET_ARE V_STATE 

BCODE FLAG f #077H 
nz.OBSAREV 

REASON,#0B0H 

FAREVFLAG,#G88H 

nz,exit_2_dn 

CMD_DEB,#OFFH 

z,exit_2_dn 

LAST_CMD.#00 

nz,do_reverse 

BCODEFLAG.#077H 

z,exit_2_dn 

SET AREV STATE 


, set the reason as autoreverse 


; test for the b code flag 
; if not b code then arev 

, set the reason as command not held 

; test forced up flag 

; if the forced up flag ciear skip 

; test tor a held command 

, if the command is held keep going 

; test for the last command being radio 

; if not do reverse 

; test for the b code flag 

; if set skip till erther is released 

; set the autoreverse state 

, return 


DOOR DOWN 


dn_posrtion: 


WDT 

cp 

V 

and 

K 


FAREVFLAG,#08$H 

nz.DNLEAVEL 

pD.JTLB *C WORKLIGHT 

DNNOFLASH 


; kick the dog 

; test for the forced up flag 
; turn off Hght 

; skip clearing the flash flag 


cp ForcedDown,#Otd 

jr 2,TestMotorReV 

cp MOTOR_TIMER,#00d 

jr z.TestMolorRev 

decw MOTOR JTIMER 

Otr RPM_ACOUNT 


; test tor force in past 

; if so the test motor motion 

; test for timed out 

; if timed out then test rev. 

; decrement motor timer 

; dear the rpm counter 
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TestMotorRev 


SkvpLock 
DNLEAVEL" 

DNNOFLASH: 


if 

SkipLock 

, skip the lock till 27 sec itmsoul 

tm 

p2.#ON_LiMrr 

, is the down limit still set 


Z.SkipLock 

; then skip the lock down 

cp 

RPM_ACOUNT.#10d 

, test for 2 rev 

i r 

ule f SkipLock 

; H less skip the lock down 

Id 

ForcedDown,#i h 

; set the flag to skip early limits 

ip 

SET_DN_D IR^STATE 

; tore© the door down to dm 

Id 

UGHT_FLAG,#OOH 

; allow blink 

Id 

Bmit.#LIMIT COUNT 


and 

pQ,#*LB A C MOTOR UP 

*&-#*C MOTOR_DN ; disable motor 

CP 

SW_DATA,#L?GHT_SW 

; de bounced? light 

J r 

2, work dn 


Id 

REASONS OH 

; set the reason as a radio comn 

cp 

RADIO CMD.#OAAH 

; test for a radio command 

jr 

z.SETUPDIRSTATE 

; tf so go up 

Id 

REASON,#OOH 

, set the reason as a command 

CP 

SW DATA,#CMD SW 

; command sw pressed? 

jr 

z.SETUPDIRSTAfE 

; if so go up 

ret 



SETUPDIRSTATE: 
Id 

jp 


work dn 


dn_pos_ret 


ONEP2,#10D 

SET UP DIR STATE 


xor 
Id 

ret 

STOP 


pO t #WORKLIGHT 
LI6HT_TIM£R__HI,#0FFH 


; set the 1 .2 sec timer 


; toggle work light 
, set the timer ignore 

; return 


stop 


LEAVESTOP. 


WDT 

<*> 

V 

and 
Id 

and 
cp 

i r 

Id 

cp 

ip 
td 

cp 

jp 

ret 


FAREVFLAG,#086H 
nz.LEAVESTOP 
pO,# A LB A C WORKLIGKT 

LlGHT_FLAG,#OOH 
pO.# A LB *C MOTOR JJP A & 
SW_DATA,#LIGHT_SW 
I,work stop 
REASON,#10H 
RADIO_CMD ,#OAAH 
i,SET_DNJ)IR_STATE 
REASON. #O0H 
SW_DATA.#CMO SW 
z,SET_DN_DlR_STATE 


work_stop- 


tor pO t #WORKLIGKT 


; kick the dog 

; test for the forced up flag 

; turn off light 

; allow bfcnk 
#*C MOTOR_DN ; disable motor 
; denounced? Mghl 

; set the reason as radio command 
; lest for a radio command 
; if so go down 

; set the reason as a command 
; command sw pressed? 
; it so go down 


; toggle work tight 
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Id LIGHT__TIMER_HI,#OFFH . set the timer ignore 

stopper 

ret , return 


SET THE AUTOREV STATE 


SET_AREV_STATE: 

dt ; 

Id STATE,#AUTO_REV ; if we got here, then reverse motor 

jr SET_ANY 


SET THE STOPPED STATE 


SET STOP_STATE. 

di 

id STATE,#STOP 

ir SET_ANY 

SET THE DOWN DIRECTION STATE 


; energize door 

; one shot the forced reverse 

; are we at down fcmit? 

; rf not at limrt set dn 

; else set the dn position 


SET THE DOWN POSITION STATE 

SET_DN_POS_STATE 
di 

Id STATE,#DN_POSfTION ; load new state 

jr SET_ANY 


SET THE UP DIRECTION STATE 

SET_UPJDIR_STATE' 
di 

clr ForcedDown 

W STATE f #UP.DIR£CTtON 

tm p2,#UPJJM!T 

jr nz,SET_ANY 


SET THE UP POSITION STATE 


SET_UP_POS_STATE : 
di 

Id STATE,#UP_POSmON 


SET_DN DIR_STATE: 
ck 

id STATE,#DN_D1 RECTI ON 
clr FAREVFLAG 
tm p2,#DN LIMIT 
jr nz,SET_ANY 


clear the flag for ski ping early limrt 

have we reached the limit? 

if not set the state 

else fall through* and set pos state 
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SET ANY STATE 


SET_ANY 

W 

dt 
dr 
Cir 
id 
id 
id 
Id 
Id 
W 
ei 
elf 
dr 
Id 
Id 
id 
Id 
Id 

TURN_ON_UGHT: 
Id 
Id 
Id 
Id 

and 


lightoH 
lighten 


dr 


ret 


BSTATE, STATE 


; set the backup state 
; dear the rprn counter 


RPM COUNT 
BRPM COUNT 

AUTOJDELAY HI,#^UTO_Hl ; set the .5 second auto r«v timer 
AUTO_DELAY_l.O.#AUTOj_0 ; 

BAUTO„DELAY_HI ( #AUTO_Hl ; set the .5 second auto rev timer 
BAUTO_DELAY_LO,#AUTO_LO ; 

FORCE jGNORE t #ONE__SEC ; set the force ignore timer to one sec 
BFORCEJGNORE,#ONE_SEC; set the iorce ignore timer to one sec 


RADIO_CMD 
RPM_ACOUrVT 
LIMIT,#ttMrT_COUNT 
MOTOR TIMER_HI,#MOTOR HI 
MOTOR JTIMERJ-0.#MOTOR LO 
STAC KR EASO N , REASON 
STACKFLAG,#OFFH 


one shot 

clear the rpm acttve counter 


LIGHTJIMER HI,#SET TtME_H! 
UGHTJ)MER_LO,#SET TIME_LO 
PRE LK3HT ( #S£T_TtME_PRE 
LIGHTS.PO 

LIGHTS ,#WORKLlGHT 
ru.ltghton 


, save the temp reason 
; set the flag 

; set the fight period 


MOTDEL 


; read the light state 
, tt the fight is on skip d earing 
, dear the motor delay 


THIS THE AUXILARY OBSTRUCTION INTERRUPT ROUTINE 


AUX OBS 


Id 

and 
Id 
or 
iret 


OBS_COUlsT!\#6D 
tmr,#11110111b 
AOBSTEST,#1tD 
AOBSF,#0O000010B 


; reset pulse counter (no obstruction) 

; turn off the intenjpt for up to 500uS 

; reset the test timer 

; set the flag tor got a aobs 

; return from int - 


THIS IS THE MOTOR RPM INTERRUPT ROUTINE 


RPM 

push 

srp 

W 

Id 

tm 

t r 

RPMTtMEERROR 


#RPM_GROUP 

rpmjemp_hi,TOEXT 

rpmJemp_to 1 TO 

IRQ,#0O010OOOB 

Z.RPMTIMEOK 


; save current pointer 

;point to these reg 

; read the timer extension 

; read the timer 

; test for a pending interrupt 

; d not then time ok 
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tm 
dec 


RPMTIMEOK: 


rpm Jemp Jo,#1 OOO000Q B 

z.RPMTIMEOK 

rpmjempjn 


and imr,#1 11 11011b 


Id 
Id 
Id 
Id 

Id 
Id 

sub 
sbc 
tm 

i r 
Id 
Id 

sub 
sbc 

RPM_T»ME_FOUND- 
Id 
Id 
ei 
di 
cp 
\ r 
cp 

i r 

TULS: 

cp 

K 

tm 

V 

CLRC: 

dr 
clr 
ei 
Y 

INCRPM: 

inc 
inc 

; inc 
SKIPC 

inc 
di 
Id 
Id 


SKIPPEDGE: 


pop 

iret 


rpm_2past_hi, rpm_past_hi 
rpm_2pastJo,rpm_past_lo 
rpm_past_hi,rpm_temp_hi 
rpm_pastJo,rpmJemp_fo 
rpm_ditf ji,rpnn_2past_hi 
r p m_di ff Jo ,rp m_2past Jo 
rpm_diffJo ,rpm jsast Jo 
rpm_dfff_hi ,rpm_past_hi 
rpm dittjii,#1 0000000b 
z,RPM_T1ME_FOUND 
rpm_dfff_hi ,rpm_past_hi 
rpm_diff_lo, rpm_pastJo 
rprn_ditf_k>.rprn_2paslJo 
rpm diff hi,rpm_2past_hi 

rpm_penod_hi T rpm_ditt_hi 
rpm_period_(o,rpm_diffjo 


rpm_period_hi,#1 2D 

ult.SKIPC 

STATE,#05h 

z,CLRC 

STAT£.#02H 
nz.lNCRPM 
P2,#UP_LIMIT 
nz.lNCRPM 

RPM COWT 
BRPM.COUNT 

SKIPC 

rpm_count 

brpm^count 

rpm_acount 

rpm_acoumt 

rpmtime out,#15D 
BRPM TIME OUT.nSD 


HP 


, test tor timer reload 

; tl no reload time is ok 

; H reloaded then dec the hi to resync 

, turn off the tnterupt for up to 500uS 

save the past for testing 

transfer the present into the past 

transfer the past into the difference 

find the difference 

test for neg number 

if the time is correct then jump 

transfer the temp into the difference 

find the difference 
; transfer the difference to the period 


; test for a period of at least 6.l44mS 
; if the period is tess then skip counting 
; test for the down fimrt state 
; if set clear the counter 

test for the up limit state 

if not then increment the rpm state 

test for the up limit still set 

H not then set 

; clear the rpm counter 


; increase the rpm count 
; increase the rpm count 
; increase the rpm count 

; increase the rpm count 

; set the rpm max period as 30mS 
; set the rpm max period as 30mS 
; if rpm not updated by then reverse 


; return the rp 
; return 
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THIS IS THE SWITCH TEST SUBROUTINE 
STATUS 

0 COMMAND TEST 

1 => WORKUGHT TEST 

2 «> VACATION TEST 

3 «> CHARGE 


SWITCH DATA 

0 => OPEN 

1 «> COMMAND 

2 WORKUGHT 
4 VACATION 


CMD_SW 
LIGHT_SW 
VAC SW 


switches. 

call 
ei 
clr 
cp 

ip 
ip 

cp 

ip 

cp 

ip 

COMMAND JTEST: 
jf 

inc 
cp 
jr 

and 

or 

cp 

clr 


NOTF LASHED; 


RS232 

SW_DATA 

STATUS,#03d 

ugt.start 

z.charge 

STATUS.#02d 

z,VACATiON_T£ST 

STATUS.#01d 

z,WORKLlGHT TEST 


VACFLAG,#00H 
Z,C0MMAND„TEST1 

VACFLASH 
VACFLASH.#10 
uJt.COMMANDJTESTl 
p3.#CQHARGE SW 
p3,#DtS_SW 
VACFLASR#60d 
nz.NOTF LASHED 
VACFLASH 


ret 


; set the default to open "idle" 
; test (or illegal number 
; rf so reset 

; if it is 3 then goto charge 

; test tor vacation 

; if so then jump 

; test for workfight 

; if so then jump 

; else it id command 

; test tor vacation mode 
, if not vacation skip flash 

; increase the vacation flash timer 

; test the vacation Hash period 

; if lower period skip flash 

; turn off wail switch 

; enable discharge 

; test the time delay for max 

; if the flash is not done jump and ret 

, restart the timer 

; return 


COMMAND JTEST1. 

tm 

'r 

tm 
K 


CMDCLOSED: 


call 
caff 
cp 


po,#swrrcHES 

nz,CMDOPEN 

PQ,#1O0O0OO0B 

nz.CMDOPEN 

DECVAC 

DECLK3HT 

CM DJD E B ,#0F FH 


,- command sw pressed? 

; open command 

; test the second command input 

; dosed command 
; decrease vacation denounce 
; decrease light debounce 
; test for the max number 
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SKfPCMDINC 


GOT A CMD 


cmd 


SKIP LEARN 


CMDEXIT. 


CMDDELEXIT. 


di 
inc 
inc 
ei 

cp 

di 
Id 
Id 
cp 
K 

push 

srp 

calf 

Clr 

pop 

or 

call 

Id 

\6 

ei 

or 

and 

W 

Id 

ret 


z.SKIPCMDINC 

CMD DEB 
BCMD DEB 


CMD_DEB,#CMD_MAKE 
nz,CMDEXIT 


LAST_CMD,#055H 

SW_DATA,#CMD_SW 

AUXLEARNSW,#1O0d 

ugt,SKIP_LEARN 

RP 

#LEARNEEJ3RP 
SETLEARN 
SW DATA 
RP~ 

pO,#LIGHT ON 

TURNJDNJJGHT 

CMD_DEB,#OFFH 
BCMD DEB.#OFFH 


, if a1 the max skip inc 

; increase the de bouncer 
; increase the debouncer 


; if not made then exit 


set the last command as command 
set the switch data as command 
test the time 


; set the team mode 
; clear the cmd 

; turn on the light 
; turn on the light 

; set the debouncer to ff one shot 
; set the de bouncer to ff one shot 


; turn on the charge system 


p3.#CHARGE_SW 
p3,#CDIS_SW 

SWITCHJDELAY,#CMD_DEL EX ; set the delay time to 8mS 
STATUS.#CHARGE ; charge time 


CMDOPEN. 


DELL OOP. 


and p3,#*LB A C CHARGE_SW 

or p3,#DlS_SW 

Id DELAYC,#16d 

dec DELAYC 

jr ru.DELLOOP 

tm pO,#SWITCHES 

jr nz.TESTWL 

call DECVAC 

call DECLIGHT 

call DECCMD 

W AUXLEARNSW,#OFFH 

jr CMDEXIT 


; command switch open 
; turn off charging sw 
; enable discharge 
; set the time delay 


loop till delay is up 
command fine still high 
if so return later 

ft not open line dec aft debouncers 


turn oh* the aux team switch 
and exit 


TESTWL 


Id 

ret 


STATUS,#WL TEST 


; set to test for a wortdight 
; return 


WORKLtGKTJTEST. 

tm pO,#SWITCHES ; command line still high 
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SKIPLIGHTINC 


GOT_A LIGHT 



n2.TESTVAC2 

t exit setting to test for vacation 

call 

DEC VAC 

; decrease the vacation debouncer 

call 

DECCMD 

, and the command debouncer 

cp 

LIGHT DEB.#OFFH 

; lest for the max 


2. SKIPLIGHTINC 

; H at the max skip mc 

inc 

LIGHT_DEB 

, inc debouncer 

cp 

LIGHT DEB,#LIGHT MAKE 

; test tor the light make 

K 

cu.CMDEXIT 

, if - - • then recharge delay 

ki 

LIGHT DEB.#OFFH 

, set the debouncer to max 

Id 

SW DATA,* LIGHT $W 

; set the data as worklight 

cp 

RRTO,#10ld 

; test tor code reception 


ugt.CMDEXIT 

; if not then skip the setmg ol Hag 

clr 

AUXLEARNSW 

; start the learn timer 

jr 

CMDEXIT 

; then recharge 


TESTVAC2 


LIGHTDELEXtT 


ld 
Id 

r 

ret 


VACATION JTEST. 

djnz 

lm 

call 
call 
cp 
K 

inc 


VACINCSK1P. 


VACIN 


VACOUT- 


r 

CP 
V 


GOT A VAC 


ir 

Id 
Id 

VACATION_EXn\ 
Id 
Id 

VACDELEXIT. 

ret 


EXrT_ERROR 


STATUS,#VAC_TEST 
swttch_deiay ,#VAC_DEL 


swttch_detay, VACDELEXIT 

pO,#SWITCHES 

nz.EXIT.ERROR 

DECLIGKT 

DECCMD 

VAC_DEB,#OFFH 

Z.VACINCSK1P 

VAC_DEB 

VACFLAG.#O0H 
z f VACOLTT 

VAC_DEB.#VAC_MAK£JN 
nz.VACATION EXIT 
GOT A VAC 


; set the next test as vacation 
; set the delay 

; return 


; command fine still high 

; exit with a error setting open state 

; decrease the light debouncer 

; decrease the command debouncer 

; test for the max 

; skip the incrementing 

; inc vacation debouncer 

; test tor vacation mode 
; if not vacation use out time 

; test for the vacation make point 
; exit if not made 


VAC DEB.#VAC_MAKE OUT 
nz,VACATION_EXIT 

VACCHANGE ,#0AAH 
VAC OEB,#OFFH 


; test for the vacation make point 
; exit if not made 

; set the toggle data 

; set vacation debouncer to max 


SWITCH_DELAY t #VAC J3EL EX ; set the delay 
STATUS,#CHARGE ; set the next test as charge 


call 
cad 


DECCMD 
DECVAC 


; decrement the debourtcers 
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call 
Id 
Id 
ret 


DECL1GHT 

SWITCH_DELAY,#VAC_DEL_EX , set the delay 
STATUS.#CHARGE ; set the next test as charge 


charge 


charge_ret 


or 
and 

dec 

Id 
ret 


p3.#CHARGE SW 
p3,#CD!S SW 

switch.delay 

nz.cha rge_ret 
STATUS t #CMDJEST 


DECCMO 


SKIPCMDDEC, 


DECCMDEXIT 


di 

dec 
dec 
ei 

cp 

V 

di 

clr 

clr 

ei 


CMD_DEB,#OOH 
z f SKIPCMDDEC 

CMD_DEB 
BCMD DEB 


CMD_DEB,#CMD_BREAK 
nz.DECCMDEXfT 

CMDJ3EB 
BCMD DEB 


; test for the min number 
; if at the min skip dec 

; decrement de bouncer 
; decrement de bouncer 


; if not at break then exH 
; if not break then exit 

; reset the debouncer 
, reset the debouncer 


; and exit 


DECLtGKT 

cp 
K 

dec 

SKIPUGHTDEC. 

cp 

i f 

clr 

DECLIGHTEX1T 
ret 


L1GHT_DEB,#00H 
Z.SK1PLK3KTDEC 
UGHT^DEB 

LIGHT DEB ,# LtGHT_BREAK 
nz,DECUGHTEXIT 
LIGHT DEB 


; test lor the min number 
; if at the min skip dec 
; decrement debouncer 

; if not at break then exit 
; if not break then exit 
; reset the debouncer 

; and exit 


DECVAC: 


SK1PVACDEC 


DECVACiN 


CP 

VAC DEB,#OOH 

, test for the min number 

i r 

z,SKIPVACDEC 

; if at the min skip dec 

dec 

VAC.DEB 

; decrement debouncer 

cp 

VACFLAG,#OOH 

; test lor vacation mode 

V 

z.DECVACOUT 

; rf not vacation use out time 

cp 

VAC_DEB.#VAC_BREAKJN 

; test for the vacation break point 
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jr mOECVACEXrr , exit it not 

jr CLEARVACDEB 

DECVACOUT: 

cp VAC_DEB,#VAC_BREAK_OUT , test for the vacation break point 

jr n2,DECVACEXfT , exit i1 not 

CLEARVACDEB 

clr VAC_DEB , reset the debouncer 

DECVACEXIT. 

ret ; and exit 


THIS ROUTINE GENERATES THE RAMP FOR THE COMPARATORS 


PWM; 


testjjp. 


update_pwm 


DN_ADDRESS„OK: 

kJ 
id 
sub 


push 

*P 

; save current pointer 

srp 

#PWM GROUP 

and 

p3.#*CPWM HI 

; take pwm output low 

tm 

p0,#DOWN_COMP 

; was it down torce? 


m testjjp 

; no, test up force 

td 

dn_temp, pulse width 

; save setting 

tm 

pO t #UP_COMP 

; up torce trip? 

l r 

nz,update_pwm 

; should be high 

td 

upjemp.pulsewidth 

; save setting 

add 

pulse width, #4 

; increase pulsewidth 

djnz 

pwrr_count , pwm_exit 


_AD DRESS. 


ei 


; turn on stacked intern. 

rcf 


rrc 

dnjemp 


ret 



rrc 

dnjemp 

!/2 

ret 



rrc 

upjemp 

;/2 

ret 



rrc 

up temp 


Id 

DNFORCE.dn temp 

; save the values 

id 

UPFORCE.upJemp 


cp 

dn temp,#064d 

; test the last address 

jr 

ult.DNADDRESSJDK 

; if in the range ok 

Id 

dnjemp. #064d 

; if out of the range set 


force_add_hi. dnjemp 

dnjemp,#64d 

dnjemp.foroe_addJu 


; REVERSE THE ROTATION 


W force_add_hi,t A hb force table_60 
Id torce add lo^tb force table 60 
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DN60 


tm 
V 

w 

td 

add 
adc 
add 
adc 

di 
Idc 
incw 
Idc 

ei 


p2,#001 00000b 
nz.DN6C 

1orce_add_hi # A hb force_tabie_50 
force_add io.#Mb force table 50 


test the 50'60 bit 


force_add_fo dnjemp 
force_add_hi #00h 
force_addJo,dn_temp 
force_add_h».#OOh 


dn_force_hi,@>force_add _ 
force_add 

dn_forcejo,@torce add 


calculate the address add 2X temp 
calculate the address add 2X temp 


get hi byte 
get low byte 


K 
Id 

UP_ADDRESS_OK 

td 
Id 

sub 

Id 
Id 
tm 

i f 
w 

Id 

UP60 

add 
adc 
add 

adc 

ck 

Idc 

incw 

Wc 

ei 

GOT_FORCE: 

Id 
Id 
Id 
Id 
Id 


pwm_exrt. 


Id 

pop 
iret 


up_temp,#064d 

utt.UP_ADDRESS_OK 

up_temp,#064d 


force_add_hi,up_temp 
up_temp f #64d 
up_temp ,f orce_add_hi 


; test the last address 

; if tn the range ok 

; it out of the range set to the top 


; REVERSE THE ROTATION 


force_add_hi.#*hb force_taWe_60 

force_addJo,#*lb lorce_table_60 

p2,#O01 OOOOOb ; test the 50/60 bit 

nz,UP60 

force, add_hi,# A hb force JaWe_50 
force_addjo.#*lb force_table_50 


force_addJo.up_temp 
force_add~hi,#00h 
1orce_addJo,up_temp 
force~add_hi,#OOh 


up_torce_hi,@>force_add 
force_add 

upJorce_lo,@force_add 


calculate the address add 2X temp 
calculate the address add 2X temp 


get hi b^te 
get low byte 


PWM_STATUS,#0FFH ; 
pwm_count.#TOTAL PWM COUNT ; max count 
puteewKflh ( #MlN_COUNT ; set initial pulse width 
dnJemp,#M1N_COUNT I Start initial pw 

upJemp t #MJN_COUKT ; 


ti,pulsewidth 


; load timer with pulse 
; restore pointer 
; return from int 
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. 66 

FORCE TABLE 


force table 

_60: 


S 0* 

.word 

ODACH 

S 1 

.word 

ODACH 

S 2 


0DC5H 

S 3 

.word 

ODDEH 

S~A 

.word 

0DF7H 

S~5 

r , 

0E10H 

S~6 


0E29H 

S~7 


0E42H 

S~8 

.wo 

0E5BH 

S~9 


0E6DH 

S~10 

r 

nP7Pw 
uu r ~n 

S~1 1 


0E91 H 

S~12 


uc?Dn 

S~13 


0EA5H 

S~ 14: 


OEAFH 

S~15. 

word 

0EB9H 

S~16 

.word 

0EC3H 

S 17. 

.word 

OECDH 

S 18 

.word 

0ED7H 

S 19 

.word 

0EE1H 

S 20* 

.word 

OEEBH 

S 21, 

.word 

0EF5H 

S 22 

.word 

OEFFH 

S 23 

.word 

0F09H 

S 24 

.word 

0F13H 

S 25 

.word 

0F1DH 

S 26 

.word 

0F27H 

S 27 

.word ( 

0F31H 

S 28 

.word 

0F3BH 

S 29 

.word 

OF45H 

S 30 

.word 

0F4FH 

S 31. 

.word 

0F59H 

S 32 

.word 

0F63H 

S 33" 

.word 

0F6DH 

S 34: 

.word 

0F86H 

S 35 

.word 

0F9FH 

S 36: 

.word 

OFBBH 

S 37 

.word 

0FD0H 

S.38 

.word 

OFEAH 

SJ19 

.word 

1003H 

S 40 

.word 

101CH 

S 41 

.word 

1035H 

S 42 

.word 

104EH 

S 43 

.word 

1067H 

S 44 

.word 

1099H 

S 45. 

.word 

10CBH 

S 46. 

.word 

10FDH 

S 47, 

.word 

112FH 

S 48: 

.word 

1161H 
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S_49 
S_50 
S_5T 
S_52 
S_53 
S_54 
S_55 
S_56 
S_57 
S_58 
S 59 
S_60 
S_61 
S_62 
S_63 
S 64 


.word 
.word 
.word 
.word 
.word 
.word 
.word 
.word 
.word 
.word 
.word 
.word 
.word 
.word 
.word 
word 


FILL 
FILL 
FILL 
FILL 
FILL 
FILL 
FILL 
FILL 
FILL 
FILL 
FILL 


1193H 
'11C5H 
1229H 
125BH 
12BFH 
1323H 
13C1H 
14FCH 
16D6H 
194DH 
1C62H 
201 4H 
2465H 
2954H 
2EE0H 
2EE0H 


end 
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What is claimed is: 

1. A barrier operator for opening and closing a movable 
barrier, comprising: 

a barrier drive: 

means for detecting motion of the movable barrier: 5 
means for detecting when a barrier command signal has 

been given to the barrier drive: 
means for storing a commanded state of the barrier drive: 
means for comparing the commanded state with the 

motion indicated by said barrier motion detection 10 

means, and for indicating if the motion conflicts with 

the commanded state: and 
means for generating an alarm signal in response to the 

conflict indication of said comparing means, 

2. A barrier operator for opening and closing a movable 15 
barrier according to claim 1. further comprising means for 
enabling the alarm signal generating means a preselected 
time interval following closure of the barrier, 

3. A barrier operator for opening and closing a movable - 
barrier according to claim 2, further comprising means for 20 
optically detecting the presence of an obstacle adjacent the 
barrier and producing an obstacle detection signal in 
response thereto, said obstacle detection means being inhib- 
ited in response to the means for enabling alarm signal 
generation. 25 

4. A barrier operator for opening and closing a movable 
barrier according to claim L further comprising a barrier 
position detection switch for generating a barrier closure 
signal when the barrier is substantially closed and providing 
the barrier closure signal to the means for generating the 30 
alarm signal indicative of the fact that the barrier has been 
closed. 

5. A barrier operator for opening and closing a movable 
barrier according to claim 1. further comprising means for 
causing the barrier drive to supply a closing force to the 35 
movable barrier in response to the alarm signal from the 
means for generating the alarm signal. 

6. A barrier operator for opening and closing a movable 
barrier according to claim S. further comprising means for 
the barrier drive to cease supplying a closing force after a 40 
predetermined time interval. 

7. A barrier operator for controlling a movable barrier, 
comprising. 

a down limit detector disposed to indicate whether said 
barrier is at a closed position or not; 

memory means for storing one of a set of states of said 
barrier, the set of states including a CLOSED state 
indicating said barrier is closed; 

alarm generation means, responsive to thj barrier state ^ 
stored by said memory means and said down limit 
detector, for generating an alarm signal when the stored 
barrier stale is CLOSED and said down limit detector 
indicates said barrier is not at a closed position: and 

alarm enabling means for enabling said alarm generation 55 
means a preselected time interval after said barrier is 
closed. 

8. A barrier operator according to claim 7. wherein said 
alarm enabling means is responsive to an indication from 
said down limit detector that said barrier is closed for # 
initiating the preselected time interval. 

9. A barrier operator according to claim 7* further com- 
prising: 

down motor signal means, for providing a down motor 
signal in response to said alarm signal: and $5 

a barrier drive responsive to said down motor signal for 
closing said barrier 
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10. A barrier operator according to claim 9. further 
comprising: 

obstacle detector for detecting an obstacle to movement of 
said barrier, and for generating an obstacle signal in 
5 response thereto: and 

means for disabling said barrier drive in response to the 
obstacle signal. 

11. A barrier operator according to claim 10. wherein said 
obstacle detector comprises: 

an optical light emitter for emitting light: and 
an optical light detector for receiving the light from said 
emitter, and generating a signal indicative of whether 
light is received from said emitter or not. 
15 12. A barrier operator according to claim 9. wherein said 
alarm enabling means is disposed to continuously enable 
without a preselected time delay said alarm generation 
means after said alarm generation means has generated an 
alarm signal, and after said barrier drive has closed said 
2c barrier in response to said alarm signal. 

13. A barrier operator according to claim 9. further 
comprising: 

a barrier drive motion detector for detecting actual motion 
of said barrier drive and generating a motion signal 
25 indicative thereof: wherein 

said alarm generation means receives the motion signal 
and generates the alarm signal when the stored barrier 
state is CLOSED, said down limit detector indicates 
said barrier is not at a closed position, and said motion 
30 detector indicates motion of said barrier drive. 

14. A barrier operator according to claim 9. further 
comprising: 

a command signal receiver for receiving a signal com- 
manding said barrier to open, and generating an indi- 
35 cation thereof: and 

means for providing an up motor signal in response to the 
receiver indication; wherein 

said barrier drive responds to the up motor signal by 
40 opening said barrier; and 

said memory means stores a state selected from the set of 
barrier stales, other than the CLOSED state, in response 
to the receiver indication. 

15. A garage door operator for opening and closing a 
45 garage door, comprising: 

a motor for moving the garage door; 

a down limit detector, for indicating when the garage door 
is moved to a closed position by said motor; 

timer means enabled by the indication from said down 
limit detector that the garage door is closed, disposed to 
indicate when a preselected interval has expired; 

command signal means for receiving a commanded state 
of the garage door; and 
55 a microprocessor responsive to said command signal 
means for causing said motor to move the garage door 
to the commanded state, disposed to cause the motor to 
close the garage door when said timer means indicates 
the preselected interval has expired, said down limit 
60 detector indicates the garage door is not closed, and 
said command signal means has not received a new 
commanded state. 

16. A garage door operator according to claim 15. further 
comprising: 

65 a tachometer for detecting rotation of said motor, and for 
providing an indication thereof to said microprocessoT, 
wherein 


123 

said microprocessor is disposed to cause said motor to 
close the garage door when said timer means indicates 
the preselected interval has expired, said tachometer 
indicates said motor has rotated beyond a preselected 
threshold, and said command signal means has not 
received a new commanded state. 
17. A garage door operator according to claim 15, further 
comprising: 

an optical obstacle detector, for optically detecting the 
presence of an obstacle adjacent the garage door and 


124 

producing an obstacle detection signal in response 
thereto, wherein 
said microprocessor is responsive to the obstacle detec- 
tion signal to cease causing said motor to close the 
garage door. 

18. A garage door operator according to claim 15. wherein 
said command signal means comprises a radio frequenc> 
receiver. 


18 . A barrier operator for opening and closing a movable 
barrier , comprising : 

a barrier drive; 

a motion detector for detecting motion of the movable 
barrier ; 

a command signal detector for detecting when a barrier 
command signal has been given to the barrier drive; 

circuitry for storing a commanded state of the barrier 
drive ; 

a controller for comparing the commanded state with the 
motion indicated by said barrier motion detector, and for 
indicating if the motion conflicts with the commanded state; 
and 

a signal generator for generating an alarm signal in 
response to the conflict indication of said controller. 

19 . A barrier operator for opening and closing a movable 
barrier according to claim 18, further comprising apparatus 
for enabling the alarm signal generator a preselected time 
interval following closure of the barrier. 

20 . A barrier operator for opening and closing a movable 
barrier according to claim 19, further comprising an obstacle 
detector for optically detecting the presence of an obstacle 
adjacent the barrier and producing an obstacle detection 
signal in response thereto, said obstacle detector being 
inhibited in response to the signal generator for enabling 
alarm signal generation . 

21 . A barrier operator for opening and closing a movable 
barrier according to claim 18, further comprising a barrier 
position detection switch for generating a barrier closure 
signal when the barrier is substantially closed and providing 
the barrier closure signal to the signal generator indicative 
of the fact that the barrier has been closed. 

22. A barrier operator for opening and closing a movable 
barrier according to claim 18, further comprising apparatus 
for enabling the barrier drive to supply a closing force to 


the movable barrier in response to the alarm signal from the 
signal generator for generating the alarm signal. 

23 . A barrier operator for opening and closing a movable 
barrier according to claim 22, wherein the barrier drive 
ceases supplying a closing force after a predetermined time 
interval . 

24 . A barrier operator for controlling a movable 
barrier, comprising : 

a down limit detector disposed to indicate whether said 
barrier is at a closed position or not; 

memory for storing one of a set of states of said 
barrier, the set of states including a CLOSED state indicating 
said barrier is closed; 

an alarm generator, responsive to the barrier state 
stored by said memory and said down limit detector, for 
generating an alarm signal when the stored barrier state is 
CLOSED and said down limit detector indicates said barrier is 
not at a closed position; and 

an alarm enabler for enabling said alarm signal generator 
a preselected time interval after said barrier is closed. 

25 . A barrier operator according to claim 24 , wherein 
said alarm enabler is responsive to an indication from said 
down limit detector that said barrier is closed for initiating 
the preselected time interval. 

26 . A barrier operator according to claim 24 , further 
comprising : 

down motor circuitry, for providing a down motor signal 
in response to said alarm signal; and 

a barrier drive responsive to said down motor signal for 
closing said barrier. 


27 . A barrier operator according to claim 26, further 
comprising : 

obstacle detector for detecting an obstacle to movement 
of said barrier, and for generating an obstacle signal in 
response thereto; and for disabling said barrier drive in 
response to the obstacle signal. 

28 . A barrier operator according to claim 27, wherein 
said obstacle detector comprises: 

an optical light emitter for emitting light; and 

an optical light detector for receiving the light from 

said emitter, and generating a signal indicative of whether 

light is received from said emitter or not. 

29 . A barrier operator according to claim 26, wherein 
said alarm enabler is disposed to continuously enable without 
a preselected time delay said alarm generator after said alarm 
generator has generated an alarm signal, and after said 
barrier drive has closed said barrier in response to said 
alarm signal. 

30 . A barrier operator according to claim 26, further 
comprising : 

a barrier drive motion detector for detecting actual 
motion of said barrier drive and generating a motion signal 
indicative thereof; wherein 

said alarm generator receives the motion signal and 
generates the alarm signal when the stored barrier state is 
CLOSED, said down limit detector indicates said barrier is not 
at a closed position, and said motion detector indicates 
motion of said barrier drive. 

31 . A barrier operator according to claim 26, further 
comprising : 

a command signal receiver for receiving a signal 
commanding said barrier to open, and generating an indication 
thereof; and 

circuitry for providing an up motor signal in response to 


the receiver indication; wherein 

said barrier drive responds to the up motor signal bv 
opening said barrier; and 

said memory stores a state selected from the set of 
barrier states , other than the CLOSED state, in response to 
the receiver indication. 

32 . A garage door operator for opening and closing a 
garage door, comprising: 

a motor for moving the garage door; 

a down limit detector, for indicating when the garage 
door is moved to a closed position by said motor; 

a timer enabled by the indication from said down limit 
detector tha t the garage door is closed, disposed to indicate 
when a preselected interval has expired; 

a comma nd signal receiver for receiving a commanded state 
of the garage door; and 

a microprocessor responsive to said command signal 
receiver for causing said motor to move the garage door to the 
comman ded state, disposed to cause the motor to close the 
garage door when said timer indicates the preselected interval 
has ex pired, said down limit detector indicates the garage 
door is not closed, and said command signal receiver has not 
received a new commanded state. 

33 . A garage door operator according to claim 32, 
further comprising : 

a tachometer for detecting rotation of said motor, and 
for providing an indication thereof to said microprocessor; 
wherein 

said mi croprocessor is disposed to cause said motor to 
close the garage door when said timer indicates the 
preselected interval has expired, said tachometer indicates 
said motor has rotated beyond a preselected threshold, and 
said command signal receiver has not received a new commanded 
state . 


34^ A gara ge door operator according to claim 32, 
further comprising : 

an optical obsta cle detector, for optically detecting the 
presence of an obstacl e adjacent the aaraae door and producing 
an obstacle detectio n signal in response thereto, wherein 

said microproce ssor is responsive to the obstacle 
detection signal t o cease causing said motor to close the 
garage door . 

3JL^ A garage door operator according to claim 32, 
wherein said comman d signal receiver comprises a radio 
frequency receiver . 

-3iL_ A barrier oper ator for opening and closing a barrier 
comprising : 

a command signa l receiver for receiving barrier open and 
barrier close signals directing the opening or closing 
, respectively of the barrier; 

a barrier drive responsive to barrier open and barrier 
close signal s for opening and closing the barrier, 
respectively; 

a closed limit d etector for sensing the closed state of 
the barrier; and 

a barrier cont roller responsive to received command 
signals and the clos ed limit detector for generating an alarm 
signal when the barri er has been in the closed position and an 
attempt is made to r aise the door when no door open command 
has been received . 

^2_u A barrier oper ator according to' claim 36 comprising 
a timer enabled bv the closed limit detector for indicating 
that a predet ermined period of time has passed. 

A barrier oper ator according to claim 3 6 wherein the 
barrier drive responds to the alarm signal bv applying a 
closing force to the barrier. 


A meth od of controlling a movable barrier for 
movement between an o pen position and a closed position 



comprising : 

receiving barrier movement commands including barrier 
open commands directin g opening movement of the barrier and 
barrier close comman ds directing a closing movement of the 
barrier : 

movi ng the barrier to the closed position in response to 
a barr ier close command: 

sensing that th e barrier has been moved to the closed 
position; and 

generating an alarm signal when the sensing step 
indicates that the barr i er has moved from the closed position, 
and the receiving step does not indicate that a barrier open 
command has been received. 

The method of claim 39 comprising directing closing 
movement of the barri er in response to the alarm signal. 


[57] 


ABSTRACT 


A movable barrier or garage door operator has a barrier drive 
for moving the Movable barrier or garage door between open 
and closed positions. Motion of the barrier is detected by a 
tachometer connected to the barrier drive or by upper and 
lower barrier travel limit switches. A test is made to deter- 
mice if the bamer has been commanded to be in a closed 
state and to determine if a preselected time interval has 
elapsed following closure of the barrier. When both of those 
conditions are present and the door is moved upward with- 
out authorization an alarm signal is generated and can signal 
the barrier drive to apply a closing force. The timer prevents 
the barrier from being closed on a person or obstacle during 
normal operatic* and prevents injury. An obstacle detector 
also prevents unwanted closure on an obstacle. 
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502 


21.04.02.01 
TURN OFF THE MOTOR AND 
KICK THE WATCHDOG 

£14 


i 

21 .04.02.02 

IF THE WORKLIGHf COMMAND 
FLAG IS SET TOGGLE THE 
WORKLIGHT 

516 


Y 

21 .04.02.03 

IF A RADIO COMMAND OR A 
WALL CONTROL COMMAND FLAG 
IS SET SET STATE = 4 

518 


v 


21 .04.02.04 


RETURN 



52Q 


Fig. 5 
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21.04.03.01 522 
TURN ON THE LIGHT AND IF THE LIGHT OFF DELAY 40mS THEN 
TURN ON THE UP MOTOR OUTPUT, TURN OFF THE DOWN 
MOTOR OUTPUT. CLEAR THE HOLD DOOR CLOSED FLAG. 


21 .04.03.02 524 
AFTER A START UP DELAY OF 1 SECOND TEST THE RPM PERIOD 
AGAINST THE LOOKED UP UP FORCE AND IF THE RPM PERIOD 
IS TOO SHORT SET STATE AS STOPPED IN MID TRAVEL. 



NO 

> 

i 

21.04.03.04 

STATE = 6 


528 


f 

21.04.03.05 

RETURN 


530 


Fig. 6a 


'21.04.03.03 
IS 1 SECONDS TIMER >= 

1 SECOND AND RPM 

PERIOD <= FORCE LIMIT? 

522 

[yes 


21 .04.03.06 52°- 
TESTTHE UP LIMIT INPUT IF 
LOW INCREASE THE 
DEBOUNCE OF HIGH 
DECREASE THE DEBOUNCE 




21 .04.03.08 

*YES > 

STATE = 2 



534 

> 



21 .04.03.09 


RETURN 



536 
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21.04.03.10 


540 


DECREMENT THE 27 SECOND 
TIMEOUT IF IT IS ZERO SET THE STATE 
AS STOPPED IN MID TRAVEL 


21.04.03.11 

TEST FOR EITHER A RADIO OR A WALL 
CONTROL COMMAND FLAG AND IF SO 
SET THE STATE AS STOPPED IN THE 
MID TRAVEL 


21.04.03.12 


RETURN 


Fig. 6b 
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YES 


21 .04.04.04 55S 
TURN OFF THE MOTOR AND 
KICK THE WATCHDOG 


21.04.04.05 
STATE = 4 
SET THE HOLD 
DOOR CLOSED 
5_E4_ FLAG 


21.04.04.06 553 
IF THE WORKLIGHT COMMAND FLAG 
IS SET TOGGLE THE WORKLIGHT 


21.04.04.07 55Q 
IF A RADIO COMMAND OR A WALL CONTROL 
COMMAND FLAG IS SET STATE = 1 


21 .04.04.08 

5S2 

RETURN 



Fig. 7 
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21.04.05.01 5ZQ 
TURN ON THE LIGHT AND IF THE LIGHT WAS OFF 
DELAY 40mS THEN TURN ON THE DOWN 
MOTOR OUTPUT AND KICK THE WATCHDOG. 



21.04.05.05 ^ 
TEST THE DOWN LIMIT INPUT IF LOW INCREASE 
THE DEBOUNCE IF HIGH DECREASE THE DEBOUNCE 


21.04.05.03 
STATE = 0 
574 


21.04.0504 
RETURN 

576 



21 .04.05.07 
STATE = 5 
SS2 


21.04.05.09 5 s6 
DECREMENT THE 27 SECOND 
TIMEOUT IF IT IS ZERO 
STATE = 0 


21.04.05.08 
RETURN 

584 


21.04.05.10 
TEST FOR EITHER A RADIO OR A 
WALL CONTROL COMMAND 
FLAG AND IF SO 
STATE = 6 


Fig. 8a 
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21.04.05.11 


590 


TEST THE PROTECTOR TIMER FOR > 
10mS AND IF SO SET STATE = 0 
SET PROTECTOR FLAG 



Fig. 8b 
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21.04.06.01 
TEST THE RPM FORCED UP 
FLAG IF SET TURN OFF THE LIGHT 
TURN OFF THE MOTOR AND 
KICK THE WATCHDOG *no 


21.04.06.02 

IS THE WORKLIGHT COMMAND 
FLAG IS SET TOGGLE THE 

WORKLIGHT 

604 


21.04.06.03 
IF A RADIO COMMAND OR A 
WALL CONTROL COMMAND FLAG 
IS SET SET STATE = 4 

606 


21 .04.06.04 


RETURN 

SOS 


Fig. 9 
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512 


21.04.07.01 
TURN OFF THE MOTOR AND 
KICK THE WATCHDOG 

620 


y 

21 .04.07.02 

DECREASE THE DELAY TIMER 
AND IF THE .5 SECONDS IS UP 
STATE = 1 ^ 


_±_ ___ 

21.04.07.03 
IF A RADIO COMMAND OR A 
WALL CONTROL COMMAND FLAG 
IS SET 


STATE = 6 624 


\ 

t 

21 .04.07.04 


RETURN 
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present application for which we solicit a reissue patent on the 
invention entitled "Barrier Operator Having System For Detecting 
Attempted Forced Entry." 
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3 . We have reviewed and understand the content of the 
Specification, including the Claims of the present application, 

4. The entire title of U.S. Letters Patent No. 5,780,987 
entitled "BARRIER OPERATOR HAVING SYSTEM FOR DETECTING ATTEMPTED 
FORCED ENTRY 11 (the '937 patent) which issued July 14, 1998, is 
vested in The Chamberlain Group, Inc. 

^ 5. We acknowledge the duty to disclose information which is 

r\ material to the examination of the present application in accordance 
■Ntwith Title 37, Code of Federal Regulations, §1,56 (a). 

fil 6. There is no foreign application for patent or inventor's 

Hi certificate on this invention filed by us or our legal repre- 
sentatives or assigns having a filing date before that of any 
^application on which priority is claimed. 

I" 7. We believe the aforesaid Letters Patent 5,780,987 to be 
^wholly or partly inoperative by reason of our claiming less than we 
"]had a right to claim in the patent. More specifically, the claims 
of Patent No. 5,780,987 are all drawn to apparatus and do not 
include method claims. Further, the independent claims are all 
unduly limited by including recitation of apparatus for sensing 
barrier motion and/ or a timer for enabling alarm signal generation. 

8 . The above errors arose without any deceptive intention on 
our part, 

9. All statements made herein of our own knowledge are true 
and all statements made on information and belief are believed to be 
true; and further these statements were made with the knowledge that 
willful false statements and the like so made are punishable by fine 
or imprisonment, or both, under Section 1001 of Title is of the 
United States Code and that such willful false statements may 
jeopardize the validity of the application or any patent issued 
thereon. 
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Full name of sole or one 
Joint inventor 

Inventors Signature 

Date: 

Residence: 

Post Office Address: 
Citizenship: 

Full name of sole or one 
Joint inventor 

Inventor's Signature 

Date: 

Residence: 

Post Office Address: 
Citizenship: 


Appln. No. 09/614,222 
Filed July 1 1,2000 


James J. Fitzgibbon 



Streamwood, Illinois 

(City and State for U.S. Residents: 
City and County for Others) 
1 0 Carol Ann Drive 
Streamwood, Illinois 60107 
U.S.A. 



Egg Harbor, Wisconsin 

(City and State for U.S. Residents: 
City and County for Others) 

4906 Court Road 

Egg Harbor, Wl 54209 

U.S.A. 



REISSUE 

ATTORNEY DOCKET NO. 68 8 95 


UNITED STATES PATENT AND TRADEMARK OFFICE 


In re Reissue of U.S. Patent 
No. 5,780,987 


Applicants: James J. FITZGIBBON 
John V. MORAVEC 

Application No.: 09/614,222 

Filed: July 11, 2000 

Title: BARRIER OPERATOR 

Q HAVING SYSTEM FOR 

yj DETECTING ATTEMPTED 

III FORCED ENTRY 
fGroup 

"J|rt Unit: 2837 
Sxaminer : 


CERTIFICATE OF MAILING 

I hereby certify that this paper is being 
deposited with the U.S. Postal Service as 
first-class mail in an envelope addressed to: 
Commissioner of Patents and Trademarks, 
Washington, D.C. 20231. * 

10/26/2000 /&->~*J>J^ 
Date Kenneth H. Samples ^ 

Registration No. 25,747 
Attorney for Applicants 


DECLARATION 


SOX REISSUE 

f&norable Commissioner of Patents 

and Trademarks 
ATTENTION: Assistant Commissioner for Patents 
Washington, D.C. 20231 


Dear Sir: 

WE, JAMES J, FITZGIBBON and JOHN V. MORAVEC hereby declare 

that : 

1. Our respective residences, post office addresses and 
citizenship are as stated below next to our names, 

2. We verily believe ourselves to be the original, first 
and joint inventors of the subject matter which is claimed in the 
present application for which we solicit a reissue patent on the 
invention entitled "Barrier Operator Having System For Detecting 
Attempted Forced Entry. " 
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3 . We have reviewed and understand the content of the 
Specification, including the Claims of the present application. 

4. The entire title of U.S. Letters Patent No. 5,780,987 
entitled "BARRIER OPERATOR HAVING SYSTEM FOR DETECTING ATTEMPTED 
FORCED ENTRY" (the '987 patent) which issued July 14, 1998, is 
vested in The Chamberlain Group, Inc. 

n 5. We acknowledge the duty to disclose information which is 
material to the examination of the present application in accordance 
gith Title 37, Code of Federal Regulations, §1. 56(a). 

ju 6. There is no foreign application for patent or inventor's 
certificate on this invention filed by us or our legal repre- 
sentatives or assigns having a filing date before that of any 
Implication on which priority is claimed. 

tZ 7 • We believe the aforesaid Letters Patent 5,780,987 to be 
wfiolly or partly inoperative by reason of our claiming less than we 
had a right to claim in the patent. More specifically, the claims 
of Patent No. 5,780,987 are all drawn to apparatus and do not 
include method claims. Further, the independent claims are all 
unduly limited by including recitation of apparatus for sensing 
barrier motion and/or a timer for enabling alarm signal generation. 

8. The above errors arose without any deceptive intention on 
our part . 

9. All statements made herein of our own knowledge are true 
and all statements made on information and belief are believed to be 
true; and further these statements were made with the knowledge that 
willful false statements and the like so made are punishable by fine 
or imprisonment, or both, under Section 1001 of Title 18 of the 
United States Code and that such willful false statements may 
jeopardize the validity of the application or any patent issued 
thereon. 
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r- Reissue of U.S. Patent 5,780,987 
Attorney Docket No. 68 8 95 


Appln. No. 09/614,222 
Filed July 11, 2000 


Full name of sole or one 
joint inventor: 


Inventor ' s s ignature ; 
Date : 


Residence : 


CEost Office Address 


rfHtizenship ; 


James J. Fitzgibbon 


Batavia , Illinois 


(City and State for U.S. Residents; 
City and Country for others) 

1521 Hadley 

Batavia, Illinois 60510 

U.S.A. 


Sfull name of sole or one 
□Joint inventor: 


Mnventor ' s signature : 
Date : 

Residence : 

Post Office Address: 
Citizenship : 


John V. Moravec 


Egg Harbor, Wisconsin 


(City and State for U.S. Residents; 
City and Country for others) ; 


4 90 6 Court Road 


Egg Harbor, WI 54209 
U.S.A. 
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PATENT APPLICATION 
Attorney Docket No. 68895 


IN THE UNITED STATES PATENT AND TRADEMARK OFFICE 


Applicants : 
Appln No. : 
Filed: 
For : 


FITZG1BBON et al . 
09/614, 222 
July 11, 2000 

BARRIER OPERATOR HAVING SYSTEM 
FOR DETECTING ATTEMPTED FORCED 
ENTRY 


CERTIFICATE OF MAILING 

I hereby certify that this paper is being 
deposited with the United States Postal Service 
as first class mail in an envelope addressed 
to: Commissioner of Patents and Trademarks, 
Washington, D.C. 20231, on this date. 


10/26/2000 
Date 


Kenneth H. Samples 
Registration No. 25 . 747 
Attorney for AppLicant(s) 


RESPONSE TO NOTICE TO FILE MISSING PARTS 


Bo^c MISSING PARTS 

CSfcmissioner of Patents and Trademarks 
ATTENTION: Assistant Commissioner for Patents 
Washington, D.C. 2 0231 

S|;lr : 

In response to the Notice to File Missing Parts dated July 27, 2 000 
enclosed are: 


(X) A copy of the Notice to File Missing Parts. 

(X) Executed Declarations for patent application, including Power 

of Attorney. 

(X) A Petition for one month Extension of Time with check in the 

amount of $110.00 to cover the Extension of Time fee under 37 
C.F.R.§1. 17(a) (1) . 

( ) Assignment (s) of the invention to 

, and Recordation Form Cover Sheet - Patents Only - Form 


PTO-1595. 

( ) A check in the amount of $ to cover the fee for 

recording the assignment (s) . 


Missing Parts 1-1299 



Attorney Docket No. 68895 

(X) Fee Calculation: 

Fee Calculation For Claims As Filed 

{ ) Provisional Application Basic Fee $ 150.00 $ 

• Surcharge under 37 C.F.R. §1.16(1) $ 50.00 $ 

or 

(X) Non- Provisional Utility Application $710.00 5 710 . 00 
Basic Fee 

O • Independent 8 - 3 - 5 x $ 8 0.00 = $ 400 . 00 
Claims 

l f} • Total Claims 40 - 20 = 20 x $ 18.00 = $ 360.00 

4- • Fee for Multiply Dependent Claims x $270.00 = $ 

H] • Surcharge under 37 C.F.R. §1.16 (e) x $130.00 = $ 130.00 
" or 

O ( ) Design Application Basic Fee $320.00 $ 

H~ • Surcharge under 37 C.F.R. §1.16 (e) $130.00 $ 

n Total Filing and/or Surcharge Fee $ 1,600.00 

(H Small Entity Fee (reduced by half) $ 

( ) Statement (s) of Status as Small Entity. 

(X) A check in the amount of $ 1 , 600 . 00 to cover the Filing and/or 
Surcharge Fee is enclosed. 

( ) Charge $ to Deposit Account No. 06-1135. 

(X) The Commissioner is hereby authorized to charge any additional fees 
which may be required in this application under 37 C.F.R. §§1.16-1.17 
during its entire pendency, or credit any overpayment, to Deposit 
Account No. 06-1135. Should no proper payment be enclosed herewith, 
as by a check being in the wrong amount, unsigned, post-dated, other- 
wise improper or informal or even entirely missing, the Commissioner 
is authorized to charge the unpaid amount to Deposit Account 
No. 06-1135. This sheet is filed in triplicate. 


October 26, 2000 


(Date) Kenneth H. Samples 

Registration No. 25 , 747 


FITCH, EVEN, TABIN & FLANNERY 
Suite 1600 

12 0 South LaSalle Street 
Chicago, Illinois 60603-3406 
Telephone: (312) 577-7000 
Facsimile: (312) 577-7007 


Missing Parts 2-1299 


